Ответы на вопрос:
1
var a,b,p:integer;
begin
writeln('Введите длину');
readln(a);
writeln('Введите ширину');
readln(b);
writeln('Периметр прямоугольника = ',2*(a+b),' см')
end.
2
var a:integer;
begin
writeln('Введите число');
readln(a);
if a > 0 then a:= a + 1;
if a < 0 then a:= a - 6;
if a = 0 then a:= 16;
writeln(a);
end.
3
var a:integer;
begin
writeln('Введите число');
readln(a);
if a > 0 then a:= a * 5;
if a < 0 then a:= a * a;
if a = 0 then a:= 15;
writeln(a);
end.
4
var a,b:integer;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
if a > b then writeln(a)
else
writeln(b);
end.
Популярно: Информатика
-
TPROfesorT13.06.2023 22:11
-
LTKaty03.11.2022 09:55
-
milubel20.01.2022 13:55
-
olka5227.01.2023 05:13
-
stas95201121721713.12.2022 14:03
-
Oliawait30.08.2020 22:48
-
fantomfantoms14.10.2020 07:28
-
баке612.11.2020 12:10
-
nastyaswan140505.08.2020 10:05
-
Bklbgnk15.07.2021 16:33