Ответ:
program Test;
var
n, t: Integer;
b: Boolean;
begin
Write ('Введите трехзначное число: ');
ReadLn (n);
if (n >= 100) and (n <= 999) then begin
if (n mod 10) mod 2 = 0 then
WriteLn ('четная')
else
WriteLn ('не четная');
end else
WriteLn (n, ' - не трехзначное');
ReadLn;
end.
Странно, что удалили мой ответ о нахождении в буфере обмена обоих фрагментов.
Из буфера обмена можно выбрать любой фрагмент, который даже не был скопирован или вырезан в данной программе.
Определение: Буфер обмена это<span> промежуточное хранилище данных, предназначенное для переноса или копирования между </span>приложениями<span> или частями одного приложения через операции </span>вырезать, копировать, вставить<span>.
Вот скриншот буфера обмена из ворда. Там находятся 2 строки, причем выбрать можно любую. Одну скопировал, вторую вырезал. Также там находится скриншот экрана, который тоже помещается в буфер обмена
</span>
Var
N:integer;
X,S:real;
Begin
S:=0;
Write('N = ');
Read(N);
Write('X = ');
Read(X);
For N:= 1 to N do
S:=S+power(X,N);
Write('S = ',S)
End.
Во вложеном файле программа, которая перераспределяет Х и У
А:=3
b:=5
c:=9
3mod3=0 (делится нацело), значит v:=1*3=3; t:=1; u:=3
5mod3=0 (не делится нацело) - не верно, действия не выполняются
9mod3=0 (делится нацело), значит v:=3*9=27; t:=2; u:=3+9=12
v=27 t=2 u=12