for i: =1 to 7 do writeln (i, ' сентября температура была ' mas[i]);
readln;
end.
Ответ дал: Гость
Program is_ev_2d; var n: integer; begin write('введите число: '); readln(n); if (n mod 2 = 0) and (n > 9) and (n < 100) then writeln(n, ' чётное двузначное') else writeln(n, ' не чётное двузначное') end.
Популярные вопросы