хелп ми плез!!!!!!!!!!!!!!!!
Приложения:
Ответы на вопрос
Ответил ingr
0
7.
var
a, b, c : integer;
begin
readln(a, b, c);
if (a mod 2 = 0) or (b mod 2 = 0) or (c mod 2 = 0) then writeln('Есть') else writeln('Нет');
end.
8.
var
s1, s2 : real;
begin
write('площадь круга: ');
readln(s1);
write('площадь квадрата: ');
readln(s2);
if sqrt(s1/pi) > sqrt(s2)/sqrt(2) then writeln('Входит') else writeln('Не входит');
end.
Ответил grattttt
0
https://znanija.com/task/31851162
Ответил grattttt
0
Ingr Ученый
Ответил grattttt
0
помоги пожалуйста последнее
Ответил grattttt
0
я везде лучшим поставил
Ответил grattttt
0
и лайк
Новые вопросы