Question

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

Answer 1

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