Найти все двузначные числа,которые кратны числу N(программирование паскаль)

Найти все двузначные числа,которые кратны числу N(программирование паскаль)
Гость
Ответ(ы) на вопрос:
Гость
//Pascal ABC.NET v3.1 сборка 1172 //Продвинутый вариант Var  n:integer; begin  readln(n);  range(10,99).Where(x -> x mod n=0).Print(','); end. //"Школьный" вариант Var  i,n:integer; begin  readln(n);  for i:=10 to 99 do  if i mod n=0 then write(i,','); end. Пример ввода: 3 Пример вывода: 12,15,18,21,24,27,30,33,36,39,42,45,48,51,54,57,60,63,66,69,72,75,78,81,84,87,90,93,96,99
Гость
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) var a,i:integer; begin   write('Введите число ');   readln(a);   for i:=10 to 99 do     if i mod a = 0 then writeln(i,' кратно ',a); end. Тестовое решение: Введите число 6 12 кратно 6 18 кратно 6 24 кратно 6 30 кратно 6 36 кратно 6 42 кратно 6 48 кратно 6 54 кратно 6 60 кратно 6 66 кратно 6 72 кратно 6 78 кратно 6 84 кратно 6 90 кратно 6 96 кратно 6
Не нашли ответ?
Ответить на вопрос
Похожие вопросы