program sasa;
function stepenj (val:integer):integer;
var inp,i,tmp:integer;
begin
tmp:=val;
Result:=1;
Writeln ('Vvedi stepenj');
Readln (inp);
for i:=1 to inp do
Result:=Result*tmp;
Writeln (Result);
end;
program raf105;
var a,b:real;
begin
write('Ввод: ');
read(a);
while a<>0 do
begin
a:= (a-((a/10-(round(a/10)))*10))/10;
b:= b+1;
end;
write('Вывод: ',b);
end.
<em>Программа написана на языке PascalABC.NET</em>
распорядок дня:
1.пробуждение
2.одежда
3.личная гигиена
4.дорога в школу.
решение примера или задачи это тоже алгоритм.
алгоритмов много просто подумайте!
алгоритм-это четкая последовательность действий.
Ответ:
Объяснение:
Вот что получилось -2676810695814762278, не знаю как ты хочешь получить из этого ip ХD