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