Такое изображение займет
57 * 57 = 3249 бита
3249 / 8 = 406,125 байта
2мин=120с, чтобы узнать скорость - надо кол-во символов поделить на время, получается 360/120=2бит/с
Var a: string;
s: integer;
begin
s := 0;
write ('Привет! Введи пароль: ');
readln (a);
while a<>'qwerty' do
begin
s := s+1;
write ('Не угадал! Введи пароль: ');
readln (a)
end;
writeln ('Теперь пароль введён верно! Количество попыток: ',s)
end.
Program z1;
var
q,x,y,z,a,b,c,d,e:integer;
w:real;
begin
writeln('Введите x');
readln(x);
writeln('Введите y');
readln(y);
writeln('Введите z');
readln(z);
a:=x*y*z;
b:=3*z*x;
c:=2*(x+y+z);
d:=max(a,b);
e:=max(b,c);
q:=max(e,d);
writeln('Максимум',q);
w:=min(3*x*y*z,q/2);
writeln('Минимум',w);
end.
Получилось немного сложнее, чем я ожидал. :)
Если что-то непонятно, пиши. :)