Определить тип вычислительного процесса a = 20; b = 10; d = 0; если a < b то c = b – a иначе c = 3 × (a – b), d = d + 10. Напечатать значения c, d:

Вопрос школьника по предмету Информатика

Определить тип вычислительного процесса
a = 20; b = 10; d = 0; если a < b то c = b – a иначе c = 3 × (a – b), d = d + 10. Напечатать значения c, d:

Ответ учителя по предмету Информатика

var  a, b, d, c: integer;

begin; 

a := 20; 

b := 10; 

d := 0; 

if (a < b) then

c := b — a 

else    

c := 3 * (a — b);   

d := d + 10; 

writeln(c); 

writeln(d);

end.

Ответ

30

10