Программа на паскале.
3.
var
a, b, s : integer;
begin
Readln (a);
readln (b);
s:= a*b;
writeln ('площадь прямоугольника = ', s);
end.
4.
var
a, b ,c, s: integer;
begin
readln (c);
a:=c div 10;
b:= c mod 10;
s:= a + b;
writeln (s);
end.
5.
var
i,a, cmax: integer
begin
cmax:= -999;
for i:= 1 to 2 do
begin
readln (a);
if (a mod 2=0) and (a> сmax) then
cmax:= a;
End;
if cmax <> -999 then write (cmax)
Else write ('четные числа отсутствуют')
end.
