c, d, e, P: integer
writeln (‘введите стороны пятиугольника’);
read (a,b,c,d,e)P:=a+b+c+d+e;
Writeln (‘периметр пятиугольника =‘ P);
end
Найдите ошибки в записи программы
FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Email: Нажмите что бы посмотреть
Найдите ошибки в записи программы
Полная форма
Неполная форма
Program primer1;
Var a :integer;
Begin
Writeln(‘введите целое
число а ');
read(а);
if a>0 then a:=a+1;
Writeln('Полученное число ', а);
end.