Question

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

Answer 1

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.

Answer 2

Я могу помочь вам с решением задач на языке программирования PascalABC.NET. Вот примеры кода для ваших задач:

1) Найти количество чисел от a до b, делящихся без остатка на 3 и 4 одновременно.

var a, b, count: integer;
begin
  // Вводим значения a и b
  readln(a, b);
  // Обнуляем счетчик
  count := 0;
  // Перебираем все числа от a до b
  for var i := a to b do
    // Проверяем, делятся ли они на 3 и 4 одновременно
    if (i mod 3 = 0) and (i mod 4 = 0) then
      // Увеличиваем счетчик
      count := count + 1;
  // Выводим результат
  writeln('Количество чисел от ', a, ' до ', b, ', делящихся на 3 и 4: ', count);
end.

2) Вывести все двузначные числа, в записи которых есть цифра N. Включить проверку на то, что N является однозначным числом.

var n: integer;
begin
  // Вводим значение n
  readln(n);
  // Проверяем, что n является однозначным числом
  if (n >= 0) and (n <= 9) then
    // Перебираем все двузначные числа
    for var i := 10 to 99 do
      // Проверяем, есть ли в них цифра n
      if (i div 10 = n) or (i mod 10 = n) then
        // Выводим число
        writeln(i);
  else
    // Выводим сообщение об ошибке
    writeln('N должно быть однозначным числом');
end.

Надеюсь, это вам поможет. Если у вас есть еще вопросы, я рад ответить на них.