Основы программирования

Какое значение получит переменная A в результате выполнения инструкций присваивания:

B:=5;
C:=4;
A:=(B/5+C)*3;

Какое значение получит переменная A в результате выполнения инструкций присваивания:

B:=5;
A:=B;
A:=A+B;

Какое значение получит переменная A в результате выполнения инструкции присваивания:

A:=0;
A:=A+1;
A:=A*A;

Какое значение получит переменная A в результате выполнения инструкций присваивания:

B:=5;
A:=10;
C:=-B;
A:=C;

Пусть в программе объявлены переменные:

a,b,c,n:integer;
d,e:real;

Определите тип следующего выражения: d+1

Пусть в программе объявлены переменные:

a,b,c,n:integer;
d,e:real;

Определите тип следующего выражения: a*d

Пусть в программе объявлены переменные:

a,b,c,n:integer;
d,e:real;

Определите тип следующего выражения: (b/c)*100

Пусть в программе объявлены переменные:

a,b,c,n:integer;
d,e:real;

Определите тип следующего выражения: a-2

Пусть в программе объявлены переменные:

a,b,c,n:integer;
d,e:real;

Определите тип следующего выражения: a+b+(c/n)

Пусть в программе объявлены переменные:

a,b,c,n:integer;
d,e:real;

Определите тип следующего выражения: 15 mod 5

Пусть в программе объявлены переменные:

a,b,c,n:integer;
d,e:real;

Определите тип следующего выражения: (a+b)*2-d

Пусть в программе объявлены переменные:

  h,l,p:integer;
  d,v:real;
Является ли следующая инструкция правильной?
p:=(d+h)*2;

Пусть в программе объявлены переменные:

  h,l,p:integer;
  d,v:real;
Является ли следующая инструкция правильной?
h:=1.0;

Пусть в программе объявлены переменные:

  h,l,p:integer;
  d,v:real;
Является ли следующая инструкция правильной?
l:=d;

Пусть в программе объявлены переменные:

  h,l,p:integer;
  d,v:real;
Является ли следующая инструкция правильной?
d:=5.9*h;

Пусть в программе объявлены переменные:

  h,l,p:integer;
  d,v:real;
Является ли следующая инструкция правильной?
h:=h+1.0;

Выберите правильные выражения для вычисления значения дискриминанта и корней квадратного уравнения. (Для вычисления квадратного корня используется функция SQRT)

Определить значение выражения: ( 5 < 1 ) OR ( 2 = 1 )

Определить значение выражения: NOT ( 100 > 3 )

Определить значение выражения: ( 3.45 = 3.45 ) AND ( 3.45 < 2 )

Определить значение выражения: ( Summa > 120 ) AND ( Summa <= 200 ), если Summa = 120

При каком значении переменной A значение выражения (A>=100) AND (A<=150) = TRUE

При каком значении переменной A выражение (A<=100) AND (A<25) = TRUE

При каком значении A выражение (A=5) OR ((A>10) AND (A<1)) истинно

При каком значении A выражение (A=5.37) AND (A=-10.0) истинно

Написать условие непревышения переменной Total числа 45

Написать условие одновременного превышения переменными А и B переменной C

Выбрать условие принадлежности переменной B диапазону чисел от L до M (L < M)

Зимние каникулы начинаются 29 декабря и заканчиваются 10 января. Выберите инструкцию IF, выводящую сообщение «Каникулы!», если дата (число и номер месяца) попадает в этот промежуток

Выберите условия того, что месяц является зимним

Выберите условия того, что месяц является летним

Напишите инструкцию CASE, выводящую на экран название времени года. Переменная month содержит номер месяца.

Замените инструкцию

if day=7 then write('Воскресенье')
else
  if day=6 then write('Суббота')
  else write('Рабочий день');

инструкцией CASE.

Сколько раз будут выполнены инструкции между BEGIN И END?

for i:=j to j+1 do
begin
...
end;

Сколько раз будут выполнены инструкции между BEGIN И END?

k:=0;
for i:=2 downto k do
begin
...
end;

Чему будет равен x после выполнения инструкций?

x:=0;
for i:=-5 to 0 do
  n:=i*i;
  x:=x+n;

Что будет выведено на экран в результате выполнения инструкций ?

n:=5;
x:=0;
for i:=1 to n do x:=i;
writeln(x);

Что будет выведено на экран в результате выполнения инструкций?

for i:=1 to 5 do
  for j:=1 to 5 do write('*');

Сколько звёздочек будет выведено на экран в результате выполнения инструкций?

for i:=1 to 5 do
  for j:=i to 5 do write('*');

Выберите вариант кода, выводящий на экран 5 строк по 5 звёздочек:

Что делают следующие инструкции?

n:=0;
repeat
  write('*');
  n:=n+1;
until n<5;

Исправьте условие окончания цикла так, чтобы было выведено 5 звёздочек.

n:=0;
repeat
  write('*');
  n:=n+1;
until n<5;

Для инструкций

n:=0;
repeat
  write('->');
  readln(a);
  n:=n+1;
until Условие;

запишите условие окончания цикла так, чтобы цикл завершался, если введено 10 чисел или ввели число 0.

Игра «Угадай число» заканчивается, если задуманное число угадано или количество попыток достигло определённого значения, например 10.
Напишите условие завершения игры, главный цикл которой реализован инструкцией REPEAT так:

c:=0; //число попыток
{ n - задуманное компьютером число }
repeat
  write('Ваш вариант-> ');
  readln(m);
  c:=c+1;
until Условие;

Чему будет равно значение переменной n после выполнения инструкций?

n:=0;
while n<5 do
  n:=n+1;

Что будет выводиться на экран во время выполнения инструкций:

n:=1;
while n<=10 do
begin
  x:=n*n;
  writeln(n:6,' ',x:6);
end;

Что будет выводиться на экран во время выполнения инструкций:

n:=1;
while n<=10 do
begin
  x:=n*n;
  writeln(n:6,' ',x:6);
  n:=n+1;
end;