Нужна помощь в составлении алгоритма (паскаль АВС) -8 класс.1 задание: Составьте программу вычисления количества двухзначных чисел,которые кратны 2 и 3.2 задание: Составьте программу,выводящую на экран все двузначные числа,у ко...
Нужна помощь в составлении алгоритма (паскаль АВС) -8 класс.
1 задание: Составьте программу вычисления количества двухзначных чисел,которые кратны 2 и 3.
2 задание: Составьте программу,выводящую на экран все двузначные числа,у которых первая цифра в два раза больше второй.
3 задание: Найдите количество двузначных чисел,которые делятся на сумму своих цифр.
P.S. Помогите пожалуйста! Очень нужно и срочно! Если можете,то нужно всё сделать; если же нет,то хотя-бы одну или две задачи. Заранее спасибо!!!)))
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c:byte;
begin
for c:=1 to 99 do begin
a:=c mod 2; b:=c mod 3;
if (a=0) and (b=0) then write (c);
end;
end.
Не нашли ответ?
Похожие вопросы