<span>If (a>=10) and (a<=99)
then begin
writeln (a,'-двузначное число');
writeln ('его квадрат=', sqr(a));
end
else (a,' не является двузначным числом');</span>
Var i:integer;s:real;
begin
s:=0;
for i:=25 to 1255 do
begin
s:=s+power(i,3);
end;
writeln (s);
end.
1758 = 1∙82+7∙81+5∙80 = 64+56+5 = 12510
Получилось: 12510
Результат перевода:
1758 = 12510
После выполнения фрагмента алгоритма мы получаем значение переменной, которое равно
а = 20