Регистрация
hlagga
11.03.2022 09:27
Информатика
Есть ответ 👍

Вопрос: Что не так.. Ошибка:
Встречено ':=', а ожидался оператор (строка 11(g:=e;))
Код:
Program k103;
USES crt;
Var a, n, s:real;
Var e, g:integer;
Begin
SLRSCR;
Writeln ('введите число Е');
Read (e);
S:=0;
n:=e:
g:=e;
While e>0 do begin
if g mod 2=0 then n:=1 else n:=-1;
a:=(g*exp((n-1)*ln(1)))/exp(n*ln(n));
if abs(a)>=e then S:=s+a else S:=s;
e:=e-1;
n:=n-1;
g:=g-1;
end;
Writeln (s:4:2);
ReadKey;
end.
Задание:
А(cнимок прикреплен)

263
477
Посмотреть ответы 1

Ответы на вопрос:

ksjsksskskjns
ksjsksskskjns
4,8(71 оценок)

var

i: integer;

begin

readln(i);

  if (i mod 2< > 0) and (i mod 3< > 0) and (i mod 5< > 0) and (i mod 7< > 0) then

  begin

    writeln('простое! ');

    end

  else

    begin

    writeln('нет! ');

    end;

end.

Популярно: Информатика