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

Question

Информатика

Феоктиста

24 января, 03:07

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

+1

Ответы (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.