4. Определите результат работы программ:

1)

var а, b: integer;

begin

a : = 26 mod 11;

b : = 3;

b : = 6 + a * b;

a : = b / 3 * a;

writeln (а) ;

end.

2)

var s, k: integer;

begin

s : = 0;

for k : = 12 to 15 do

s : = s + 13;

writeln (s) ;

end.

Question

Информатика

Федяка

28 марта, 16:19

4. Определите результат работы программ:

1)

var а, b: integer;

begin

a : = 26 mod 11;

b : = 3;

b : = 6 + a * b;

a : = b / 3 * a;

writeln (а) ;

end.

2)

var s, k: integer;

begin

s : = 0;

for k : = 12 to 15 do

s : = s + 13;

writeln (s) ;

end.

+4

Ответы (1)

Знаете ответ на вопрос?

Гелина · Answer 1

1) Ошибка "Нельзя преобразовать тип real к integer"

При исправлении

var

a, b: real;

begin

a : = 26 mod 11;

b : = 3;

b : = 6 + a * b;

a : = b / 3 * a;

writeln (a) ;

end.

выдает 24

2) 52

4. Определите результат работы программ:1)var а, b: integer;begina : = 26 mod 11;b : = 3;b : = 6 + a * b;a : = b / 3 * a;writeln (а) ;end.2)var s, k: integer;begins : = 0;for k : = 12 to 15 dos : = s + 13;writeln (s) ;end.

4. Определите результат работы программ:

1)

var а, b: integer;

begin

a : = 26 mod 11;

b : = 3;

b : = 6 + a * b;

a : = b / 3 * a;

writeln (а) ;

end.

2)

var s, k: integer;

begin

s : = 0;

for k : = 12 to 15 do

s : = s + 13;

writeln (s) ;

end.