Что-то типа:
uses Crt;
var x, y:real;
begin
ClrScr;
Write('X='); ReadLn(X);
Write('Y='); ReadLn(Y);
if (X>=0) and (x<=3) and (Y>=0) and (Y<=3) then WriteLn ('Yes!!!')
else WriteLn('No...');
ReadLn;
end.
Информацию потерять конечно же можно, запросто. Носители
ломаются/теряются, данные стираются, изменяются, записываются новые и тд
(Ярким примером служит нашумевший вирус WannaCrypt или ПетяА). Обидней
всего потерять доступ к данным (например забыть логин/пароль почты). Еще
можно забыть где находится информация
Const n=10;
var x : array[1..n] of integer;
i : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
x[i]:=random(31)-30;
write(x[i],' ');
end;
writeln;
for i:=1 to n do
if x[i] mod 2 <>0 then x[i]:=x[i]*x[i];
writeln('Измененный массив:');
for i:=1 to n do write(x[i],' ');
writeln;
<span>end.</span>
Нужно сложить от 1 до 101 символа (в зависимости от количества и размера данных чисел)
отевет: не более 101 числа