Смашины тьюринга найти частное от деления двух - вопрос №10329933 от Damir2342 18.10.2021 17:48

Question

Информатика: Смашины тьюринга найти частное от деления двух десятичных чисел. при написании программ, осуществляющих операции над числами необходимо переводить их на ленте из позиционной системы в унарное представление.

Damir2342 · Answer

1.

program raf105;

var

i: integer;

begin

for i:=50 to 57 do

writeln(i,' ');

end.

2.

program raf105;

var

i,c,sum: integer;

sari: real;

begin

for i:=6 to 14 do

begin

sum:= sum+i*i;

c:= c+1;

end;

sari:= sum/c;

writeln('Среднее арифметическое: ',sari);

end.

3.

program raf105;

var

i,n,sum: integer;

begin

write('n = ');

readln(n);

for i:=1 to n do

if i mod 2 = 0

then sum:= sum+i*i;

writeln('Сумма квадратов чётных чисел: ',sum);

end.

PascalABC 3.4.2