Ответы
Ответ дал:
0
var a,b,P:integer;
begin
writeln('Введите значение a: ');
readln(a);
writeln('Введите значение b: ');
readln(b);
P:=(a+b)*2;
writeln('P = ',P);
end.
Ответ дал:
0
ну или вместо 4 строк после begin вот так:
Ответ дал:
0
writeln('Введите значение a,b: ');
readln(a,b);
readln(a,b);
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад