:=
процедура ввода
процедура вывода
начало
р:=4*а
конец
‘введи значение стороны квадрата’, ‘a=‘
a
‘периметр квадрата’, ‘ ‘, ‘р=‘, р
1
1
Program kvadrat;
Uses crt;
Var a,p:integer;
Begin
clrscr;
write (‘введите значение стороны квадрата’, ’ ’, ’а=’);
readln(a);
p:=4*a;
write (‘периметр квадрата’, ‘ ‘, ‘р=‘, р);
readln;
end.
MOD
возвращает остаток от деления
5 : 2 =
2,5
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть