Напишите программу для вывода на экран 10 целых, случайных чисел в интервале [50,150). Обратите внимание на скобки!

Знания

Информатика

1 ответ:

Momo4 года назад

0 0

Var i: byte;
begin
randomize;
for i := 1 to 10 do
writeln(random(100)+50);
end.

Читайте также

Превратить функцию в процедуру function KolDel(n:integer):integer; var i,k:integer; begin k:=0; for i:=1 to n do if n mod i=0 th

smek [7]

Procedure KolDel(n:integer; var k:integer);
var i:integer;
begin
k:=0;
for i:=1 to n do
if n mod i=0 then k:=k+1;
end;
var m,n,i:longint;
md,mx:integer;
begin
repeat
writeln('Введите интервал, 2 натуральных числа, второе больше первого');
readln(m,n);
until n>m;
mx:=1;
for i:=m to n do
begin
KolDel(i,md);
if md>mx then mx:=md;
end;
writeln('Наибольшее количество делителей имеют числа:');
for i:=m to n do
begin
KolDel(i,md);
if md=mx then write(i,' ');
end;
writeln;
write('количество=',mx);
readln
end.

Пример:
<span>Введите интервал, 2 натуральных числа, второе больше первого
10 100
Наибольшее количество делителей имеют числа:
60 72 84 90 96
количество=12</span>

0 0

4 года назад

Прочитать ещё 2 ответа

Помогите с заданием из ОГЭ по информатике

tanjasunset [9]

2 числа ,1811и 1212))))

0 0

3 года назад

В какое время в Лондоне происходит знаменитое чаепитие файф-о-клок

Алинаворкунова [121]

В пять часов кажется

0 0