Question

Информатика 9 класс турбо паскаль var a, b: real; {а – возраст Маши; b – возраст Cаши}beginreadln (a, b);if A>B thenwriteln (‘Маша старше Саши’)elsewriteln (‘Саша старше Маши’);readln;end. Задание.Доработать программу таким образом, чтобы в случае вводаa=b программа выводила: ‘Саша и Маша ровесники’. Помогите дам 50 пунктов первому!!!

Answer 1

Var a, b: real;
{а – возраст Маши; b – возраст Cаши}
begin
readln (a, b);
if A>B then
writeln ('Маша старше Саши')
else if a=b then
writeln('Саша и Маша ровесники')
else
writeln ('Саша старше Маши');
readln;
end.

Answer 2

Конечно, я могу помочь вам доработать программу. Вот модифицированный код:

pascalCopy code
var
  a, b: real;
begin
  readln(a, b);
  
  if a > b then
    writeln('Маша старше Саши')
  else if a < b then
    writeln('Саша старше Маши')
  else
    writeln('Саша и Маша ровесники');
    
  readln;
end.

В этой версии кода добавлено условие else if a < b, чтобы обработать случай, когда возраст Маши меньше возраста Саши. Если оба возраста равны (a = b), программа выведет сообщение "Саша и Маша ровесники".