(алгоритм смотрите ниже)Программа:
Program popcorn;
var y,a,b : real;
begin
write ('ввести два разных числа ');
read(a,b);
if (a>b) then begin y:=a*a-b*b*b;write('разница квадрата большего и куба меньшего числа =',y);end else begin y:=b*b-а*а*а;write('разница квадрата большего и куба меньшего числа =',y);end;
end.
Алгоритм:
1)ввести два разных числа
2)найти большее число
3)написать формулу разности квадрата большего и куба меньшего числа.
Держи в константе количество элементов прогрессии.
Мы сдвигаем вправо на 4 элемента C->F $C ->$C
сдвигаем вниз на 2 элемента 3->5 1->3
в D3 будет:
=F5+$C3
Ответ:
Римляне использовали непозиционную римскую систему счисления.
Двоичная система, лежащая в основе компьютерной логики, является позиционной.
program raf105;
var a,sum,i:integer;
begin
writeln('Вводите 10 чисел по очереди');
for i:=1 to 10 do
begin
readln(a);
sum += a;
end;
writeln('Сумма: ',sum);
end.
<em><u>Язык PascalABC</u></em>