Написать программу нахождения периметра параллелограмма по известным сторонам b и m (b и m — целые числа, вводимые с клавиатуры).
Answers & Comments
varanchik
Var m, b:integer; begin writeln ('Введите стороны b и m'); write ('Введите сторону b'); readln (b); write ('Введите сторону m'); readln (m); writeln; writeln ('Периметр = ', (a+b)*2); readln; end.
Answers & Comments
begin
writeln ('Введите стороны b и m');
write ('Введите сторону b'); readln (b);
write ('Введите сторону m'); readln (m);
writeln;
writeln ('Периметр = ', (a+b)*2);
readln;
end.