Ответ получается 2170 на компиляторе pascal.ABC
Гоша- учится в 5 классе ,кружок-математ.
Витя-6, фотокружок
Алеша-7-авиамодели.
Боря-8,шахмат.
Думаю,что так, но не уверена,напишите потом верно или нет
1)
Program n1;
var x: real;
begin
readln(x);
if(x mod 2=0) then do writeln('четное);
else
writeln('нечетное');
end.
2)
Program n2;
var x, y: real;
begin
if(x mod 2=0) or (y mod 2=0) then do writeln('да');
else
writeln('нет');
end.
3)
Program n3;
var x: real;
begin
readln(x);
if(x<8) and (x>-8) then do writeln('нет');
else
writeln('да');
end.
Ответ:
5), 2), 3), 1), 7), 6), 4)
Объяснение:
https://past.ru/hi.gif