Какой результат даст формула ЕСЛИ ( А1>В1;"А1";"В1") , если А1=5, С1=3*А1, В1=А1*А1-4С

1. Язык программирования Pascal создал:
a. Н. Вирт

2. Линейная структура построения программы подразумевает
b. Последовательное выполнение всех элементов программы

3. Оператор присваивания имеет вид:
b. :=

4. Команда CLRSCR служит для
c. очистки экрана

5. раздел VAR служит
a. Для описания используемых переменных

6. Переменные – это:
a. величины, которые могут менять свое значение в процессе выполнения программы

7. Правильная строковая запись выражения
b. x-x*x*x/abs (x) +sin (x)
Так как скобки там не на что не влияют, то их отсутствие правильный вариант в отличае от пункта с
Пункт а тоже может быть верным в языке где степень определена как ***, например в Ruby это **. Без указания языка/универсальным будет ответ b

8. целочисленное деление можно выразить следующей функцией:
b. A div B

9. математическое выражение х2-7х+6 можно записать:
x*x-7*x+6

10. выражение на паскале (abs (x)-abs(y))/(1 + abs (1/s)) можно записать:
 (|x|-|y|)/(1+|1/s|)

11. раздел операторов начинается служебным словом:
c. BEGIN

12. ввод данных с клавиатуры осуществляется с оператора:
b. READ, READLN

13. вывод данных на экран осуществляется с оператора:
a. WRITE, WRITELN

14. чему будет равно значение переменной М в результате выполнения серии операторов
N:=5;
Y:=2;
M:=N/5+3*Y*N
M = 1+3*2*5=31

15. тип переменных REAL это:
d. верного ответа нет

Program  Ilgiz98;
var
  i: integer;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln('Программа находит 4-значные числа, которые делятся на 27');
  writeln('Список таких чисел:');
  for i:=1000 to 9999 do
    if (i mod 27)=0 then writeln(i);
end.

Program  Ilgiz98;
var
  mass: array [1..20] of integer;
  i, k, n: integer;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln('Среди элементов массива программа находит числа, которые больше заданного числа N и одновременно кратны 5');
  write('Введите число N ');  readln (n);
  writeln('*** Вычисляю... ***');
  k:=0;
  writeln('Массив чисел:');
  for i:=1 to 20 do
    begin
     mass[i]:=random(1000)-500;
     writeln(mass[i]);
     if (mass[i]>n) and ((mass[i] mod 5)=0) then k:=k+1;
  end;
  writeln();
  writeln('Всего найдено ',k,' таких чисел');
end.