Var a:array[1..100] of integer;
n:integer;
begin
read(n);
for I:1 to n do
begin
a[i]:=0;
end;
end.
X - задуманное число.
(x*3+9+15-3)/3-x = (3x+21)/3-x = x+7-x = 7
Var x:integer;
begin
writeln('Введите чилос x: ');
readln(x);
if x>= 100 then
if (not odd(x)) then
writeln('TRUE')
else
writeln('FALSE')
else
writeln('Число не трехзначное');
<span>end.
Надеюсь правильно понял тебя и составил программу верно.</span>
var
a, b, c, d, k: longint;
begin
read(a, b, c, d);
k := 0;
if a mod 2 = 0 then k := k + 1;
if b mod 2 = 0 then k := k + 1;
if c mod 2 = 0 then k := k + 1;
if d mod 2 = 0 then k := k + 1;
writeln(k);
end.
var
b, p: real;
i: byte;
begin
p := 1;
for i := 0 to 47 do
begin
b := cos(i) * (sqr(i) / (i + 8));
if (abs(b) <= 25) then
p := p * i;
if (i >= 18) then //Верхняя граница и так задана, так что нужно только нижнюю приткнуть
write(i, ' '); //Вывод очередного числа
end;
writeln(#13, p); //Вывод произведения
end.