Ответ 4
импликация: основное правило чтоб запомнить 1→0=0 это ед.случай и он только в 4 пункте!
Прогоном.
a=3 => x больше 64 и не более 511 (первое число, при котором с условием x mod 8>0 цикл запускается 3 раза и 511 последнее из таких чисел)
сам искомый иск наименьший = 106
Function fac(a:integer):int64;
Var i,b:integer;
Begin
b:=1;
for i:= 1 to a do
b:=b*i;
fac:=b;
End;
Var
i,n:integer; s:real;
Begin
s:=1;
Write('Введите число n: ');
Readln(n);
for i:= 1 to 2*n do
s:=s+1/fac(i);
Write(s);
End.
В общем. Начерти окружность, квадрат, прямоугольник, параллелограмм и ромб.
После чего пиши: Ни одна из предложенных фигур графически не похожа на другую - истинное. Все рисунки являются геометрическими фигурами - истинное.
Все фигуры имеют углы - ложное. Некоторые фигуры имеют объём - ложное.
Var
a: integer;
begin
readln(a);
if (a mod 3 = 0) or (a mod 10 = 4) then
writeln('Да')
else
writeln('Нет')
<span>end.</span>