var m,k:integer;
n:real;
begin
writeln('Введите n и m через пробел:');
read(n,m);
k:=0;
writeln('Шаг ',k,', n=',n,', m=',m);
while m >= 6 do begin
m:=m-2;
n:=n*2;
k:=k+1;
writeln('Шаг ',k,', n=',n,', m=',m);
end;
writeln('n=',n,', m=',m);
end.
Результат:
Введите n и m через пробел:
1 10
Шаг 0, n=1, m=10
Шаг 1, n=2, m=8
Шаг 2, n=4, m=6
Шаг 3, n=8, m=4
n=8, m=4
* - это все возможные названия и форматы
т. е. *. это все возможные названия файлов, и..
.* - это все возможные форматы файлов (exe, txt, dll...)
Итог *.* - все возможные названия файлов и все возможные форматы.
1) 100х100 = 10 000
каждая точка (либо черный либо белый) это 1 бит. Соответственно 10 000 бит. В байтах 1250
2) клеток 96 (т.е. 96 бит) делим на 8 (1 байт это 8 бит)
96:8=12 ответ: 12байт
program foo;
uses Crt;
var
a, s: real;
begin
ClrScr;
write('Сторона квадрата: ');
read(a);
s := Sqr(a);
Writeln('Его площадь: ', s:0:2);
ReadKey;
end.