Ловека? 4
Домашнее задание
No
Абак
Найди информацию в сети Интернет. Заполни таблицу.
Изобретение, устройство
Дата
Где и кем создано
Приблизительно Древний
с V века до н. э. Рим
XVI-XVII BB. Российское
государство
1.
2.
Счеты
Линейка для навигационных
3.
расчетов
4.
Машина Паскаля
5.
Механическая счетная
машина – арифмометр
6.
Вычислительный автомат
7.
Аналитическая машина
8.
Счетно-перфорационная
машина
9. Электронная вычислитель-
ная машина ENIAC
10. Малая электронная счетная
машина (МЭСМ)
11. Большая электронная
счетная машина (БЭСМ)
12. Первый IBM компьютер
13. Первый компьютер с
микропроцессором Pentium
19​

Program test;
uses utils;
var
  n,i,sum,time:longint;
  flag:boolean;
begin
    readln(n);
    if n<2 then flag:=false;{Единица - не простое число}
    if n=2 then flag:=true;{2 - простое}
    if (n>2) and (n mod 2 <> 0) then begin{ после двойки простые числа только нечетные}
      for i:=1 to n do begin{проверяем что бы было только 2 делителя}
        sum:=sum+1;
      end;
      if sum=2 then flag:=true;
    end
    else flag:=false;
    if flag then writeln('Число простое') else writeln('Число НЕ простое');
    time:=milliseconds;
    writeln('Времени затрачено ',time:10,' ms.');
end.
Все проверки сделаны для сокращения времени работы программы.

В непосредственном режиме- видимо без ввода программы, ввести последовательно строки (сначала присваиваем значение переменной икс, затем вычисляем выражение и помещаем это значение в переменную игрек, и после печатаем значение переменной игрек):

LET X=1.12

LET Y=SQR (X^3+EXP X-LN (3*X))*(1+4*SIN (X/2)+5*EXP (SIN X))

PRINT Y

И записать результат вычислений, который высветится на экране (у меня получилось 27.839525 но у вас может немного отличаться).

Надеюсь, что в вашей версии бейсика нет отличий от той, что у меня (она весьма старая).