Подробно расписать в Pascal и все. Само решение прикреплено.
Задание: Что будет выведено на экран после выполнения фрагмента программы? a:=10, b:=5, с:=6 if (a>b) and (b>c) then x=3*a+2*b+c else x=5*a-b+c
Answers & Comments
Maksim2009rus
Var a, b, c, x: integer; begin write('Введите а, b и c: '); read(a, b, c); if (a > b) and (b > c) then x := 3*a + 2*b + c else x := 5*a - b + c; writeln('Результат: ', x, '.'); end.
Answers & Comments
a, b, c, x: integer;
begin
write('Введите а, b и c: ');
read(a, b, c);
if (a > b) and (b > c) then
x := 3*a + 2*b + c
else
x := 5*a - b + c;
writeln('Результат: ', x, '.');
end.