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.
Я бы сначала помотрел на ссылку и скорее всего не стал бы заходить, но если приспичит то скачаю виртуалку и зайду
Поставь лучший ответ очень надо плз)
1, 2, 5, 9 -однозначные числа
Ответ: звук как бы.Я не очень знаю
Объяснение: я уже не знаю