Написать программу нахождения периметра параллелограмма по известным сторонам c и h (c и h — целые числа, вводимые с клавиатуры). 1)program perimetr; var begin write(‘c=’); readln(c); write(‘h=’); readln(h); p:=2*(c+h); writeln(‘p=’,p); readln; end. 2)program perimetr; var c,h,p:integer; begin write(‘c=’); readln(c); write(‘h=’); readln(h); writeln(‘p=’,p); readln; end. 3)program perimetr; var c,h,p:integer; begin write(‘c=’); readln(c); write(‘h=’); readln(h); p:=2*(c+h); writeln(‘p=’,p); readln; end.

Вопрос школьника по предмету Информатика

Написать программу нахождения периметра параллелограмма по известным сторонам c и h (c и h — целые числа, вводимые с клавиатуры).
1)program perimetr;
var
begin
write(‘c=’);
readln(c);
write(‘h=’);
readln(h);
p:=2*(c+h);
writeln(‘p=’,p);
readln;
end.
2)program perimetr;
var
c,h,p:integer;
begin
write(‘c=’);
readln(c);
write(‘h=’);
readln(h);
writeln(‘p=’,p);
readln;
end.
3)program perimetr;
var
c,h,p:integer;
begin
write(‘c=’);
readln(c);
write(‘h=’);
readln(h);
p:=2*(c+h);
writeln(‘p=’,p);
readln;
end.

Ответ учителя по предмету Информатика

В первом варианте решения не объявлены используемые переменные, во втором варианте пропущено собственно вычисление периметра (инициализация переменной
p), так что верным является только третий вариант.