На вход программе подается число n. Программа формирует n случайных чисел и находит сумму тех из них, которые больше 5 но меньше 100.
10-11 класс
|
написать программу на любом языке. Лучше паскаль
program gt;
var a,s,i,N:longint;
begin
readln(N);
s:=0;
RANDOMIZE;
for i:=1 to N do
begin
a:=random(500)-250;
if(a>5)and(a<100)then s:=s+a;
end;
writeln(s);
end.
Другие вопросы из категории
после того как ячейку B3 скопируют в ячейку C4?
Примечание: знак $ используется для обозначения абсолютной адресации.
1) =2*A$1 2) =2*A$2 3) =2*B$1 4) =2*B$2
• Дан массив из N вещественных чисел. Поменять местами последний и минимальный элементы массива.
• Дан массив из N целых чисел. Найти номер первого элемента, который равен количеству элементов, кратных 3.
an. Вам нужно проверить, есть ли в этом массиве три числа сумма которых равна нулю.
Читайте также
остаток от деления которых на 5 больше двух
одном: гитаре, скрипке, арфе или фортепиано.
Каждая из них учится на одном из отделений факультета: английского, французского, немецкого или испанского языка.
Та из них, которая играет на гитаре, учится на отделении испанского языка. Наташа не играет ни на скрипке, ни на арфе, и не учится на отделении английского языка. Катя тоже не играет ни на арфе, ни на скрипке и не учится на отделении английского языка. Студентка отделения немецкого языка не играет на арфе. А Римма учится на отделении французского языка и не играет на скрипке.
На каком инструменте играет и на каком отделении факультета иностранных языков учится каждая из студенток?
получается лилия играет на скрипке и не играется на гитаре, не учится на французском.
рима на французском но не играет на скрипке
наташа не на англйским и не играет не на скрипке не на арфе
катя не на английском не на скрипке не на арфе
на входе и выводит сумму его цифр.
Я написал первую часть программы (без вывода суммы цифр) :
program sg3;
uses crt;
var i,a,k: integer;
begin
clrscr;
write('Введите число: ');
readln(a);
k:=0;
for i:=2 to a div 2 do
if a mod i =0 then k:=k+1;
if k=0 then write('Простое')
else writeln('Составное');
readln;
end.
Допишите пожалуйста код, который бы выводил сумму цифр,Паскаль
получает на вход два натуральных числа А и В, не превосходящих 10^9^ А<=В . Программа должна вывести одно число - кол-во натуральных чисел, больше или равных А и меньших или равных В, сумма цифр которых четна.