Вопрос от посетителя
1)Стороны прямоугольника параллельны осям координат.Одна из вершин имеет координаты (0,0),координаты противоположной вершины задаются с клавиатуры.Вычислите площадь прямоугольника. 2)С клавиатуры вводится натуральное число.Если оно кратно двум,напишите “четное число”,иначе напишите “нечетное число”.
Отвечает Илюха:
1)
var
x,y,s:real;
begin
readln(x,y);
s:=abs(x*y);
writeln(s:8:2);
end.
2)
var
a:integer;
begin
readln(a);
if a mod 2=0 then writeln(“четное число”)
else writeln(“нечетное число”)ж
end.