В Pascal ABC с помощью циклического алгоритма FOR нужно решить: 1) Найти количество чисел от a до b, делящихся без остатка на 3 и 4 одновременно. 2) Вывести все двузначные числа, в записи которых есть цифра N. Включить провер...
В Pascal ABC с помощью циклического алгоритма FOR нужно решить: 1) Найти количество чисел от a до b, делящихся без остатка на 3 и 4 одновременно. 2) Вывести все двузначные числа, в записи которых есть цифра N. Включить проверку на то, что N является однозначным числом.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы