program ; var n : integer; begin for n: = 10 to 99 do if n mod 13 = 0 then writeln(n); readln; end.
Ответ дал: Гость
на паскале:
program ostatok; var c: integer; beginwriteln('введите число с.'); readln(c); writeln('остаток от деления ',c,' на 10, возведенный в квадрат, равен ',sqr(c mod 10)); end.
Ответ дал: Гость
то что подчеркнуто на минимальный возвраст группы заменить.
Популярные вопросы