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.