1. МИГ -> МИГГИМН
2. МИГГИМН -> МИГГИМННМИГГИМО
//Pascal ABC.NET v3.1 сборка 1172
var
n: real;
begin
read(n);
writeln(n, ' суток=', n * 1440, ' минут');
writeln(n, ' минут=', n * 60, ' секунд');
end.
Пример ввода:
12
Пример вывода:
12 суток=17280 минут
12 минут=720 секунд
Program h;
var i:integer;
s:real;
begin
i:=0;
while i<=20 do
begin
i:=i+2;
s:=s+1/i;
end;
writeln(s);
end.
Program h2;
var i:integer;
s:real;
begin
for i:=2 to 20 do
begin
if (i mod 2=0) then s:=s+1/i;
end;
writeln(s);
end.
3)program chik;
var a,n,p,i:integer;
begin
read(a,n);
i:=2;p:=a;
whiel i<=n do
begin
i:=i+1;
p:=p*a;
end;
writeln(p);
end.
если непонятно пиши что непонятно(надеюсь поймеш) и я отвечу на вопросы