Ответ в приложении, включен режим показа формул
Var x,y: integer;
begin write('Введите два целых числа, разделяя их пробелом: ');
readln(x,y);
if x>y then
writeln('Сумма ',x,' и ',y,' равна ',x+y)
else
writeln('Произведение ',x,' и ',y,' равно ',x*y);
writeln('Задача решена');
<span>end.</span>
640x480=307200 пикс.
J = 110 бит
N=2^j
N=2^110 цветов
Uses crt;
var
x,y,a,b:integer;
begin
clrscr;
while true do begin
randomize;
x:=random(10);
y:=random(10);
write('Введите первое число=');read(a);
write('Введите второе число=');read(b);
writeln(x,' ',y);
if ((a=x) and (b=y)) or ((a=y) and (b=x)) then begin
writeln('Вы угадали');
end
else begin
writeln('Вы не угадали');
end;
end;
end.