Question

1)Проанализируй и напиши программу на языке Паскаль.
Вычислить n!, если значение n пользователь вводит с клавиатуры.

Если n=1, то на экране выводится n!=
2)Запиши программу на языке Паскаль.
Определить, является ли число, введенное с клавиатуры простым.

Answer 1

1:
var n:integer;otvet:real;
begin
  writeln('Введи n:');
  readln(n);
  otvet:=1;
  for var i:=1 to n do otvet:=otvet*i;
  writeln('n!=',otvet);
end. 

2:
var n:integer;otvet:real;prostoe:boolean;
begin
  writeln('Введи n:');
  readln(n);
  prostoe:=true;
  for var i:=2 to n-1 do if n mod i = 0 then
  begin
    writeln(n, ' Не простое, делится на ',i);
    prostoe:=false;
    exit;
  end;
  if prostoe then writeln(n, ' Простое');
end.