Напишите программу которая выведит на экране ваше имя 100 раз

170

325

Посмотреть ответы 2

Ответы на вопрос:

alinarostova66

Информатика

4,6(12 оценок)

Вот решение на паскале: uses crt; const n=100; var i: integer; nam: string; begin clrscr; write (' name = '); readln (nam); for i : = 1 to n do write (nam: 10); writeln; readln; end.

filbert04

Информатика

4,4(47 оценок)

Var m, n, n10, n100: integer; begin write('введите трехзначное число: '); readln(m); if (m > 99) and (m < 1000) then begin n100 : = m div 100; n10 : = (m mod 100) div 10; n : = m mod 10; if (n + n10 + n100) mod 7 = 0 then writeln('сумма цифр кратна семи') else writeln('сумма цифр не кратна семи') end end. тестовое решение: введите трехзначное число: 473 сумма цифр кратна семи