Question

СРОЧНО 40 БАЛЛОВ!!

Задание 1.

Определите значение переменной а после выполнения данного алгоритма:
a:=28;
b:=35;
b:= (b-5)/6
a:=b*(a+b-3)

Задание 2.
Определите значение целочисленных переменных a и b после выполнения фрагмента программы:
а :=7*11 + 4;
b :=(a div 10)+ 6;
a :=(b mod 10)+ 3;


Задание 3.
Определите значение переменной c после выполнения следующего фрагмента программы:
a := 6 ;
b := 15 ;
a := b – a*2;
if a>b then c := a + b else c := b – a;


Задание 4.

Определите, что будет напечатано в результате работы следующей программы:
var s, k: integer;
begin
s:=5;
for k:=7 to 14 do
s:=s+2*k;
write(s);


Задание 5.

а) Составьте алгоритм в виде блок-схемы на увеличение в два раза меньшего из двух целых чисел.
б) Напишите программу на языке Pascal по представленному в п. а) алгоритму.

Answer 1

Задание 1:

Ответ: 150

• a = ((35 - 5) / 6) * (28 + ((35 - 5)/6) -3) = 5 * (25 + 5) = 150

Задание 2:

Ответ: a=9, b=86

• b = ((7 * 11 + 4) div 10) + 6 = (81 div 10) + 6 = 86
• a = (86 mod 10) + 3 = 6 + 3 = 9

Задание 3:

Ответ: 12

• a = 15 - 6 * 2 = 3
• 3>15 ? нет => c = 15 - 3 = 12

Задание 4:

Ответ: 173

• for k:=7 to 14 do  s:=s+2*k
• s = 5 + 2*(7+8+9+10+11+12+13+14) = 173

Задание 5А:

Ответ:

• Начало
• Ввод a, b
• a>b ?
• если да, то Вывод b*2
• если нет, то Вывод a*2
• Конец

Задание 5Б:

Ответ:

• var a, b: integer;
• begin
•    readln(a,b);
•    if a>b then writeln(b*2) else writeln(a*2);
• end.