ВЫвести на экран все двузнычные числа кратные 3 и оканчивающиеся на 3. Найти их среднее арифметическое (Pascal)

Question

Информатика

Азар

12 сентября, 09:11

ВЫвести на экран все двузнычные числа кратные 3 и оканчивающиеся на 3. Найти их среднее арифметическое (Pascal)

+4

Ответы (1)

Знаете ответ на вопрос?

Люциан · Answer 1

Uses crt;

const b = 10;

var x=0, y=0; integer;

a = array[10 ... b] of integer;

begin

for x:=0 to b do

...

if (a[i]mod3=0 and a[i]mod10=3) there begin

x:=x+1;

y:=y+a[i]; end;

writeln (x, y) ;

end.