Ответы
Ответ дал:
0
var a,b,p: integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
p:=2*(a+b);
writeln('p = ',p);
end.
Пример:
a = 5
b = 7
p = 24
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
p:=2*(a+b);
writeln('p = ',p);
end.
Пример:
a = 5
b = 7
p = 24
Ответ дал:
0
var P,a,b:integer;
begin
writeln ('Введите a и b');
read (a);
read(b);
P := (a+b)*2;
writeln('P=';P);
end.
begin
writeln ('Введите a и b');
read (a);
read(b);
P := (a+b)*2;
writeln('P=';P);
end.
Похожие вопросы
2 года назад
2 года назад
2 года назад
9 лет назад