Регистрация
залина102
31.05.2023 11:01
Информатика
Есть ответ 👍

Написать программу в кумире. числовой ряд из десяти чисел задаётся генератором случайных чисел в диапозоне от 1 до 20. определить, сколько среди них чисел меньше 6.

142
476
Посмотреть ответы 2

Ответы на вопрос:

nikitosgurbano
nikitosgurbano
4,6(39 оценок)

паскаль сойдет? я не знаю что такое кумир

var a,b,i: longint;

sum: int64;

begin

read(a,b);

for i: =a to b do

sum: =sum+(i*i);

writeln(sum);

end.

 
bissimbayevaa
bissimbayevaa
4,6(6 оценок)

pascal

Объяснение:

1)

var

 age: integer;

begin

 Write('Введите Ваш возраст: ');

 ReadLn(age);

 if age >= 16 then

    WriteLn('Вы совершеннолетний')

 else

    WriteLn('Вы несовершеннолетний')

end.

2)

var

 n: integer;

begin

 Write('Введите число: ');

 ReadLn(n);

 if n mod 5 = 0 then

    WriteLn(n, ' делится на 5')

 else

    WriteLn(n, ' не делится на 5')

end.

Популярно: Информатика