Program Task;
Const N = 499; M = 1;
Var A: Array [1..N, 1..N] of Boolean;
i, j, x, y, t: Integer;
b: Boolean;
Begin
Randomize;
While i < M Do
Begin
x := Random(N) + 1;
y := Random(N) + 1;
If A[x, y] = False Then
Begin
A[x, y] := True;
i := i + 1;
End;
End;
While b = False Do
Begin
b := True;
For i := 1 To N Do
For j := 1 To N Do
Begin
If A[i, j] = True Then
Begin
If (i + 1) <= N Then
A[i + 1, j] := True;
If (i - 1) > 0 Then
A[i - 1, j] := True;
If(j + 1) <= N Then
A[i, j + 1] := True;
If (j -1) > 0 Then
A[i, j - 1] := True;
End;
End;
For i := 1 To N Do
For j := 1 To N Do
If A[i, j] = False Then
b := False;
t := t + 1;
End;
WriteLn(t);
ReadLn;
<span>End.</span>
Одна тонкость - разность первых 2-ух чисел это из первого вычитаем второе или из второго первое?
Program Chisla;
Uses Crt;
var a,b,c,d,sum:real;
begin
clrscr;
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
write('Введите третье число: ');
readln(c);
write('Введите четвёртое число: ');
readln(d);
sum:=a+b+c+d;
if ((a-b)>d) and (sum<=80) then writeln(c,d)
else
if (a-b)>d then writeln(a,b,c,d)
else
if (sum<=80) then writeln(a,b)
else writeln(a+5,b+5,c+5,d+5);
readkey;
end.
Ответ:
Нет
Объяснение:
Сброс настроек до заводских - это всего лишь установка параметров по умолчанию, как они были сделаны при выпуске устройства. Очищается опаративная память. Но пользовательнские программы не удаляются. И, тем более, не удаляются и не восстнавливаюются в исходное состояние системные файлы - для этого нужна полная заводская копия системы, которая по умолчанию не делается и не хранится.
Поэтому зараженное вирусом устройство нельзя вылечить простым сбросом настроек,
// версия для простого паскаля
var age:byte;
begin
writeln(' Введите ваш возраст в годах. ');
readln(age);
writeln(' Через 5 лет вам будет ', age+5, ' лет');
end.
Вот: 1. самый короткий путь равен 16; 2. 22; 3. 21