Скорее всего так:
Книга- лучший друг человека.
В этом году была холодная зима.
Зачем ты это сделал?
Дети и сказку "Кот в сапогах"
При безошибочной игре выигрывает первый игрок. Своим первым ходом он должен взять один камень. В куче останется пять камней. Какой бы ход ни сделал второй игрок, в куче останется 4, 3 или 2 камня. Это позволяет первому игроку своим вторым ходом оставить в куче ровно один камень, его и должен будет забрать своим вторым ходом второй игрок
program G1;
var
a:real;
begin
writeln('Сколько килограмм?');
readln(a);
a:=a*1000;
writeln('Это ',a,' грамм')
end.
Просто подставляем
Для начала узнаем А4, где написанно, что оно равно B1+B2=1+2=3
A4=3
A1=A4-B1=3-1=2
A2=A1+2=2+2=4
A3=A2+B1=4+1=5
Соответствующая таблица находится под номером 3
Ответ: 3
Uses Crt;
Var
A,B:integer;
P:real;
C:boolean;
Begin
ClrScr;
Write('Введите натуральное число: ');ReadLn(B);
Write('A = ');ReadLn(A);
P:=1;
C:=false;
B:=Abs(B);
While B>0 do
Begin
P:=P*(B mod 10);
if B mod 10 = A then C:=true;
B:=B div 10
End;
WriteLn('P = ',P);
if C then WriteLn('Не верно')
else WriteLn('Верно');
ReadLn
End.
uses Crt;
Var
A:integer;
Begin
ClrScr;
For A:= 100 to 999 do
if ((A+1) mod 2 = 0)and((A+2) mod 3 = 0)and((A+3) mod 4 = 0)and((A+4) mod 5 = 0) then Write(A,' ');
ReadLn;
End.
uses Crt;
Var
A,B,C:integer;
Begin
ClrScr;
Write('Введите натуральное число: ');ReadLn(B);
Write('A = ');ReadLn(A);
C:=0;
While B<>0 do
Begin
if B mod 10 <> A then C:=C*10+B mod 10;
B:=B div 10;
End;
While C<>0 do
Begin
B:=B*10+C mod 10;
C:=C div 10
End;
WriteLn(B);
ReadLn;
End.