Регистрация
mindrehumor11111
12.06.2022 23:13
Информатика
Есть ответ 👍

Вpascal abc с циклического алгоритма for нужно решить: 1) найти количество чисел от a до b, делящихся без остатка на 3 и 4 одновременно. 2) вывести все двузначные числа, в записи которых есть цифра n. включить проверку на то, что n является однозначным числом.

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

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

ШиноаХиираги
ШиноаХиираги
4,6(55 оценок)

var a,b,i,n: integer; begin      read(a,b);       for i: = a to b do            if i mod (3*4) = 0 then n: =n+1;       writeln(n); end.var n,i: integer; begin      for i: = 1 to 99 do begin            if (i div 10 < > 0) and ((i div 10 = n) or (i mod 10 = n)) then                  write(i,' ');       end; end.

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

ну вот так как-

Популярно: Информатика