Последнее время меня всё чаще стали просить решить программы паскаль abc, которые считаются базовыми. Я решил, что буду выкладывать наиболее востребованные программы к каждой пройденной теме, но чтобы быстрее выложить весь нужный материал, я решил больше не прикреплять уникальные картинки к исходникам. Итак, я решил начать с темы - циклы в паскале. Первым исходником паскаль будет программа, которая находит все двухзначные числа, кратные N. N вводится пользователем с клавиатуры, числа вводятся через пробел.
Решение программы довольно таки простое, есть пояснительные комментарии к каждой строке.
Исходный код программы Pascal:
Var //Описание переменных
i,n: integer;
Begin //Начало программы
write('Введите n: '); //Диалог с пользователем
readln(n); //Считывание числа n
For i:=10 to 99 do //Цикл FOR, диапазон чисел от 10 до 99 включительно
If (i mod 10=n) or (i div 10=n) or (i mod n=0) then //Условие задания
write(i,' '); //Вывод через пробел
End. //Конец программы.
Скачать пример программы: pas1for.pas
P.S. Эта программа может задаваться и так: Найти все двузначные числа, в которых есть цифра N, или само число делится на N. Вместо двухзначных чисел можно поставить условие и для трех- и для четырехзначных чисел. Это легко решить, поменяв условие цикла FOR.