Question

Что выведут данные программы? a) var a,b,c:integer; begin a:=1 + 11 div 3; b:=2 + 18 mod 3; c:=2.1 + 14 mod 4; writeln(a,' ',b,' ',c) end. b) var a,b,c:integer; begin a:=trunc (2.71); b:=12*a div 7; c:=a*b div 4; writeln(a:4,' ',b,' ',c:4) end. c) var k:integer; begin k:=371 mod 18 div 4 mod 3*2; write(k); end.

Answer 1

Ответ:

a)  Будет выведена ошибка компиляции, из за того, что "с" у нас объявлено integer (целое). Но мы пытаемся этому числу присвоить дробное (c:=2.1 + 14 mod 4;). Либо уберите дробь из выражения или измените тип данных для "с"

b)    2 3    1

c) 4

Answer 2

Давайте посмотрим на каждую из данных программ и определим, что они выведут:

a) Программа a:

pascalCopy code
var a, b, c: integer;
begin
  a := 1 + 11 div 3;
  b := 2 + 18 mod 3;
  c := 2.1 + 14 mod 4;
  writeln(a, ' ', b, ' ', c);
end.

В этой программе:

• a будет равно 1 + (11 div 3), что равно 1 + 3, то есть 4.
• b будет равно 2 + (18 mod 3), что равно 2 + 0, то есть 2.
• c будет равно 2.1 + (14 mod 4), что равно 2.1 + 2,1, то есть 4,2.

Таким образом, программа выведет "4 2 4.2".

b) Программа b:

pascalCopy code
var a, b, c: integer;
begin
  a := trunc(2.71);
  b := 12 * a div 7;
  c := a * b div 4;
  writeln(a:4, ' ', b, ' ', c:4);
end.

В этой программе:

• a будет равно результату функции trunc(2.71), что равно 2.
• b будет равно (12 * 2) div 7, что равно 24 div 7, что равно 3 (целочисленное деление).
• c будет равно (2 * 3) div 4, что равно 6 div 4, что равно 1 (целочисленное деление).

Таким образом, программа выведет:

Copy code
   2 3    1

c) Программа c:

pascalCopy code
var k: integer;
begin
  k := 371 mod 18 div 4 mod 3 * 2;
  write(k);
end.

В этой программе:

• Сначала вычисляется выражение справа от присваивания.
• 371 mod 18 равно 17 (остаток от деления).
• 17 div 4 равно 4 (целочисленное деление).
• 4 mod 3 равно 1 (остаток от деления).
• Затем 1 умножается на 2, что равно 2.
• Результат присваивается переменной k.

Таким образом, программа выведет значение переменной k, которое равно 2.