Нужно составить программу ветвления по информатике!Для задачи: ** приеме у педиатра...

Question

Нужно составить программу ветвления по информатике!Для задачи:
На приеме у педиатра производится измерение роста и всеса грудных детей в возрасте до трех месяцев.Компьютер определить рост и вес месяц назад .
Рост и вес ребенка в день приема,если ребенок на три сантиметра вырос и более,а вес увеличился на 700 грамм и более выдается сообщениие ,что развивается хорошо,если прибавил меньше трех сантиметров или вес меньше чем на 700 грамм,выдается сообщение ребенок меньше нормы

Answer 1

Решение на Pascal (если не подходит - скажите):

program pediatr;
var
  h_old, h_new, w_old, w_new: integer;
begin
  write('введите рост ребёнка месяц назад (в см): ');
  readln(h_old);
  write('введите рост ребёнка сейчас (в см): ');
  readln(h_new);
  write('введите вес ребёнка месяц назад (в г): ');
  readln(w_old);
  write('введите рост ребёнка сейчас (в г): ');
  readln(w_new);
  if ( (h_new - h_old) >= 3 ) and ( (w_new - w_old) >= 700) then
    writeln('Ваш ребёнок развивается хорошо')
  else
    writeln('Ваш ребёнок меньше нормы');
end.

Comments

Нет,нужно в программе Basic