ТутРешу.Ру

Напишите программу на любом вам известном алгоритмическом языке

Задание:

Напишите программу на любом вам известном алгоритмическом языке. На вход программе подается число N. Программа формирует N случайных чисел сумму тех из нихостаток от деления которых на 5 больше двух

Решение:

Program gt; var a,i,n,s: integer; beginread (N); s: =0; randomize; for i: =1 to n dobegina: =random (500); if (abs (a) mod 5>2) then s: =s+a; end; writeln (s); end.




Знаете другой ответ?

Отправить свой ответ