Question

15. Запиши на Паскале следующий оператор ветвления:
Если А>B то найти С как сумму этих переменных

Answer 1

Ответ:

program test;

var a,b,c:real;

begin

readln(a,b);

 if (a>b) then

 begin

 c := a+b;

 writeln('Итоговое значение с = ', c);

end;

 

if (a=b) then

begin

  writeln('Одинаковые значения!');

end;

end.

Объяснение:

 if (a>b) then  <----------- Если а больше, чем б

 begin  <------ Начало

 c := a+b;  <----- c присваивается значение суммы а и б

 writeln('Итоговое значение с = ', c);  <------ вывод значения c в консоль

end; <------- Конец

(Если а будет равняться б, то вывод в консоль будет такой)

if (a=b) then

begin

  writeln('Одинаковые значения!');

end;