Исходник программы, которая выводит двухзначные числа с цифрой n или кратные n

Исходник программы, которая выводит двухзначные числа с цифрой n или кратные n

Последнее время меня всё чаще стали просить решить программы паскаль 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.
Автор: Zed от 2013-06-25 10:09:34   Просмотров: 5068

Теги: Паскаль Pascal исходник исходники скачать FOR циклы