Регистрация
bIshkin
14.03.2023 04:51
Информатика
Есть ответ 👍

Составьте программу, которая определит произведение и среднее арифметическое нечетных чисел на промежутке от 5 до 80.

250
486
Посмотреть ответы 2

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

leyla210
leyla210
4,4(59 оценок)
//pascal abc.net 3.1 var   i,k: integer;   p: biginteger;   s: real; begin p: =1;   for i: =5 to 80 do   begin     p: =p*i;     s: =s+i;     inc(k);   end;   writeln(p);   writeln(s/k); end.
OOONIMOOO
OOONIMOOO
4,4(30 оценок)

1)

var i,a: integer;

begin

i: =0;

while i< 5 do

begin

i: =i+1;

a: =random(21)-10;

write(a,' ');

end;

end.

пример:

1 10 -2 -5 9

2)

var p: real; i: integer;

begin

p: =22.4;

i: =1;

while i< 10 do

begin

i: =i+1;

writeln(i,' шт: ',i*p: 5: 2,' руб.');

end;

end.

результат:

2 шт: 44.80 руб.

3 шт: 67.20 руб.

4 шт: 89.60 руб.

5 шт: 112.00 руб.

6 шт: 134.40 руб.

7 шт: 156.80 руб.

8 шт: 179.20 руб.

9 шт: 201.60 руб.

10 шт: 224.00 руб.

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