Ребят нормальный код? Почему он популярен? Все мы знаем, какой самый популярный СИНГЕР, это МОРГЕНШТЕРН,и - id1433966920201001 от YtNazarIdline 01.10.2020 14:52

Question

Информатика: Ребят нормальный код? Почему он популярен? Все мы знаем, какой самый популярный СИНГЕР, это МОРГЕНШТЕРН,и все мы хотим побывать на его концертах, но почему, потому, что он матерится? На этот вопрос ответит вам вот этот сайт! Click Here

YtNazarIdline · Accepted Answer

FOR15

program fofgogjoj;
var
n,i : integer;
a,p : real;
begin
Writeln('Введите число.');
Readln(a);
Writeln('Введите степень');
Readln(n);
p:=1;
for i:=1 to n do
begin
p:=p*a;
end;
if a<0 then
p:=1/p;
Writeln(p :6:3);
readln;
end.

FOR16

program fofgogjoj;
var
i, n: integer;
a, p: real;
begin
Writeln('Введите число:');
Write(' a = ');
Readln(a);
Writeln('Введите показатель степени (n > 0):');
Write(' N = ');
Readln(N);
Writeln('Все степени числа ', a, ' от 1 до ', n, ':');
p:= 1;
for i:=1 to n do
begin
p:= p*a;
Writeln(' ', a, ' в степени ', i, ': ', p:0:2)
end
end.

MOGZ ответил