<span>i:=5;
write('7');
while (i<6) do
begin
write(i);
i:=i+1;
end; Ответ будет 75</span>
Для палитры 65536 цветов требуется 16 бит или 2 байта на точку.
Перемножим все данные и получим:
1024*768*2=1572864 байт=1536 кбайт = 1,5 Мбайт
var
s, r, l: real;
begin
read(r);
s := pi * r * r;
l := 2 * pi * r;
write(s:0:3, #10, l:0:3);
end.
Var pass,s:string; k:integer;
begin
pass:='12345';
k:=0;
repeat
writeln('Введите пароль:');
readln(s);
k:=k+1;
until (s=pass)or(k=3);
if s=pass
then writeln('Можно приступать к работе')
else writeln('Вызываю охрану');
end.
Пример:
Введите пароль:
1
Введите пароль:
12345
Можно приступать к работе