Напишите программу на любом вам известном алгоритмическом языке.На вход программе подаётся число N.Программа формирует N случайных чисел сумму тех из них
10-11 класс
|
остаток от деления которых на 5 больше двух
program gt;
var a,i,n,s:integer;
begin
read(N);
s:=0;
randomize;
for i:=1 to n do
begin
a:=random(500);
if(abs(a) mod 5>2)then s:=s+a;
end;
writeln(s);
end.
Другие вопросы из категории
Поажаалуйста помогите.
Дано натуральное число. Определить какое из цифр встречается в этом числе чаще 0 или 9
1.Получить информацию.
2.Содержать много полезной информации.
3.Не содержать информации.
4.Информация к размышлению.
заданны 4 квадратные матрицы A(n,n),b(n,n),c(n,n),d(n,n) в которых хранятся целые числа. Найти матрицы, в которых на диагоналях есть простые числа.
Читайте также
углов.
2)
Напишите пожалуйста программу (на языке BASIC) для определения подобия:
а) двух прямоугольников по двум смежным сторонам;
б) двух треугольников по трем сторонам.
будет ли произведение этих чисел положительным
длинами своих сторон – a, b, c. Определить является ли
он тупоугольным, прямоугольным или остроугольным.
2) Построить циклический алгоритм, записать ввиде блок-схемы и на алгоритмическом языке.
Построить алгоритм, который определяет количество студентов в группе,
чей рост превышает среднее для группы значение.
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!