Ответы на вопрос:
program zadanie1; var a,b:real; begin writeln('Введите числа'); readln(a); readln(b); writeln(a*b); end.program zadanie2; var a:real; begin writeln('Введите сторону'); readln(a); writeln('S=',a*a); writeln('P=',4*a) ;end.program zadanie3; var a,b,c:real; begin writeln('Введите стороны'); readln(a); readln(b); c:=(a*b)/2; writeln('S=',c); end.
Вот, вроде.
Объяснение:
Объяснение:
program proizvedenie
var a,b,c:integer;
begin
read(a,b);
c:=a*b;
writeln(c);
end.
program kwadrat
var a,b,c,s:integer;
begin
read(a,b);
s:=a*b;
c:=a*4;
writeln(c,s);
end.
program treugol`nik
var a,b,s:integer;
begin
read(a,b);
s:=a*b;
s:=s/2;
writeln(s);
end.
Популярно: Информатика
-
dimailiysovдима30.08.2021 16:13
-
Yaritas05.08.2020 17:45
-
Lizzza111110.08.2022 01:57
-
dgfdgrrfd09.08.2020 23:56
-
lewa013130.07.2021 16:48
-
ep1cook1e12.11.2022 07:17
-
ivankirichko214.03.2020 01:39
-
milkyyyw14.11.2021 10:44
-
kirill1212317.03.2022 03:13
-
dema117913.03.2023 00:55