Var
a:array [1..9] of real;
i:integer;
begin
for i:=1 to 9 do read(a[i]);
a[2]:=abs(a[2]);
a[4]:=abs(a[4]);
a[6]:=abs(a[6]);
a[8]:=abs(a[8]);
for i:=1 to 9 do write(a[i],' ');
end.
Найдём путем последовательного деления на основание с/с. Для этого нам необходимо делить число на 2 до того момента, пока в частном мы не получим цифру алфавита системы счисления, любую, кроме 0 (в данном случае необходимо прийти к 1). Потом записываем частное последнего вычисления, а следом за ним остатки остальных вычислений в обратном порядке. На фото подробнее.
Ввод текста
редактирование
форматирование
печать
Задача 1.
Var
A:integer;
S:real;
Begin
S:=0;
For A:= 120 to 300 do
S:=S+A;
WriteLn('S = ',S);
End.
Результат работы программы:
S = 38010
<span>Задача 2.
Var S:real;
n,A:integer;
Begin
n:=0;
S:=0;
For A:= 15 to 100 do
if A mod 10 = 6 then
Begin
S:=S+A;
n:=n+1
End;
WriteLn('Sr = ',S,'/',n,' = ',S/n);
End.</span>