Меню сайта
Форма входа
Категории раздела
Учебник по Паскалю [13] Практика [23]
примеры программ
Главная » Статьи » Pascal » Практика

На интервале от 12 до 100 определить числа кратные 11. Найти произведение этих чисел.
На интервале от 12 до 100 определить числа кратные 11.
Найти произведение этих чисел.

Program Reshenie;

Uses crt;


Var i,j:integer;


s:longint;


begin


clrscr;


s:=1;


writeln('Числа кратные 11 в интрвале от 12 до 100:');


for i:=12 to 100 do begin


if i mod 11=0 then begin


writeln(i);


s:=s*i;


end


end;


writeln('Произведение этих чисел: ',s);


write('Нажмите Enter');


readln;


end.
Категория: Практика | Добавил: nazgull (09.02.2012)
Просмотров: 3072 | Теги: pascal прмеры, На интервале от 12 до 100 определит, паскаль примеры программ, Найти произведение этих чисел, интервал паскаль | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Ссылки