Головна | Реєстрація | Вхід | RSSПонеділок, 03.01.2021, 4:04 PM

Довідник для учнів та студентів

Меню сайту
Пошук
Наше опитування
Оцінка сайту
Всього відповідей: 1092
Що нового?
Форма входу
Міні-чат

№4 тема 5 пункт 2

program t5p2n4;

var n,max,k: integer;

begin

n:=500;

k:=0;

repeat

n:=n+1;

if (n mod 13 = 0) or (n mod 17 = 0) then

begin

max:=n;

k:=k+1;

writeln (max);

end;

until k=20;

readln

 Яндекс.Метрика
end.
Статистика

Онлайн всього: 1
Гостей: 1
Користувачів: 0
Календар
«  Березень 2021  »
ПнВтСрЧтПтСбНд
1234567
891011121314
15161718192021
22232425262728
293031
Архів записів
Друзі сайту

Guide-for-students © 2021
Створити безкоштовний сайт на uCoz