написать программу которая вычисляет оптимальный вес пользователя сравнивая его с реальными выдаёт рекомендации о необходимости поправиться или похудеть. по формуле рост минус 100 ...
написать то легко но учитель сказал что б говорилось на сколько худеть или поправиться надо ... ((ну ни как не могу додуматься ((помогите ((вот сама написаная программа
Program Zadacha1;
Var ves, rost, optVes:integer;
Begin
write ('введите массу тела') ;
read (ves) ;
write ('введите рост в см') ;
read (rost) ;
optVes:=rost-100;
if ves>optVes then write ('вам необходимо похудеть') ;
if ves
Ответы (1)
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «написать программу которая вычисляет оптимальный вес пользователя сравнивая его с реальными выдаёт рекомендации о необходимости поправиться ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Var i, n: integer; Ves: array[1 ... 14] of integer; Begin Ves[1]: = 25; Ves[2]: = 21; Ves[3]: = 23; Ves[4]: = 28; Ves[5]: = 30; Ves[6]: = 25; Ves[7]: = 31; Ves[8]: = 28; Ves[9]: = 25; Ves[10]: = 28; Ves[11]: = 30; Ves[12]: = 27; Ves[13]: = 26;
Ответы (1)
Program kod; Var q, w, e, r, t, y, u, i, x:integer; Begin write (q, w, e, r, t, y, u, i) ; if q=1 then x + (1*2*2*2*2*2*2*2) ; if q=0 then x+0; if w=1 then x + (1*2*2*2*2*2*2) ; if w:=0 then x+0; if e=1 then x + (1*2*2*2*2*2) ; if e=0 then x+0;
Ответы (1)
Переведите программу в Free Pascal var A: Array [1 ... 100] of integer; size: integer; Even: integer; notEven: integer; begin Write ('Set size A : ') ; Read (size) ; for i:integer : = 1 to size do begin Write ('Set A[', i, ']: ') ; Read (A[i]) ; end;
Ответы (2)
Программа не запускается исправьте программу program lab1; Var x, a, nx:integer; y:real; begin write ('Введите x: ') ; read (x) ; write ('Введите a: ') ; read (a) ; write ('Введите nx: ') ; read (nx) ; If a
Ответы (1)
Какое число будет напечатано в результате выполнения программы: var i, k: integer; function f (x: integer) : integer; var m: integer; begin if x < 10 then f : = x else begin m : = f (x div 10) ; if m < x mod 10 then f : = x mod 10 else f : = m; end;
Ответы (1)
Помогите с ответом
Напиши, что умеют делать животные. Прочти предложения. 1. A fish. 2. A horse. 3. A bird. 4. A chimp. 5. A dog. 6. A mouse. 7. A dolphin. 8. A kangaroo. 9. An. elephant. 10. A rabbit.
Нет ответа
Сделайте синтасический разбор предложений: Быстро растаял под лучами яркого солнца снег. Хороши летом глазастые ромашки! Идёшь в тишине, и уха коснётся трубный звук.
Нет ответа
С. Сахарнов "Летучая рыба"
Нет ответа
Объясните, почему уважение американцев к труду можно считать одной из причин подъёма экономики. 19 Век
Нет ответа
Прочитайте. определите слово по его лексическому значению неб льшой сочный плод курстарников и трав. () тот, кто учится в школе () первый месец зимы () иструмент для копания земли () хлебный злак () часть горизонта, где восходит солнце () вставьте
Нет ответа