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

1 ответ:

0 0

Готово.......................

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

MrDarkGameTV

Имя ячейки конечно нельзя удалить

0 0

4 года назад

Pit4

var
a, b, sum, index: word;
begin
sum := 0;
read(a,b);
for index := 1 to b do sum += a;
write(sum);
end.

0 0

4 года назад

KoDen

?????????????????????

0 0

4 года назад

566677 [127]

var

s: real;

n, i: integer;

begin

readln(n);

s := 0;

for i := 1 to n do

s := s + (i + 1) / i;

writeln(s);

end.

0 0

3 года назад

pocemyYa

201/1024=0,196 //Переводим в Мб
500-0,196=499,804 мб

Ответ:499,804 Мбайт

0 0

4 года назад