Задачи
4.57
4.58
4.60
выполняются последовательно
но можно разбить на 3 программы
Программа А6 в файле
1)Это с помощью while
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1; i:=0;
while i<p do
begin
c:=c * a;
inc(i);
end;
writeln(c);
readln;
end.
2) Это с помощью repeat
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1; i:=0;
repeat
c:=c * a;
inc(i);
until i=p;
writeln(c);
readln;
end.
3) Это с помощью for
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1;
for i:=1 to p do
c:=c * a;
writeln(c);
readln;
end.
Program zadanie;
begin
writeln('буря мглою небо кроет');
writeln('вихри снежные крутя');
writeln('то как зверь она завоет,');
writeln('то заплачет ,как дитя');
end.
Ответ:
2)37байт=296 бит
1 кб=1024 байт
1мб.
Объяснение:
1)В одной байте 8 битов.Следовательно:нужно 37×8.