ПОМОГИТЕ ПОЖАЛУЙСТА!
1-4 класс
|
1. Определите, в норме ли вес обследуемого пациента (нормой
считается вес, равный (рост(см) - 100) ± 5 кг).
Значения роста и веса должны вводиться с клавиатуры, результат выводиться на
экран в виде одного из следующих сообщений: “вес ниже нормы”, “вес в норме”,
“избыточный вес”.
1.Var a,b:integer;
begin
writeln ('введи вес в кг и рост в см');
Readln (a,b);
if (b-100=a+5) or (b-100=a-5) then writeln ('вес в норме')
Else if (b-100>a+5) then writeln ('Вес выше нормы')
else writeln ('вес ниже нормы');
end.
2. Var a,b:integer;
s:real;
s1:char;
begin
writeln ('введи 1-ое число:');
readln (a);
writeln ('введи операцию +,-,/,*');
readln (s1);
writeln ('введи 2-ое число:');
readln (b);
write (a,s1,b);
if s1='*' then Writeln ('=',a*b) else
if s1='-' then writeln ('=',a-b) else
if s1='+' then writeln ('=',a+b) else
if (s1='/') and (b<>0) then begin
s:=a/b;
if a mod b=0 then writeln ('=',s:1:0)
else writeln ('=',s:5:4);
end
else writeln (' не может быть вычислено');
end.
3. Var x:integer;
y:real;
begin
writeln ('введи х из интервала (-10;15] ');
readln (x);
if (x>-10) and (x<=15) then
begin
if (x>-10) and (x<-4) then y:=sqr(x)
else if (x>=-4) and (x<=7) then y:=1/(2+x)
else y:=sqrt(x);
writeln (y:1:2);
end
else writeln ('х не идентифицирован');
end.
Другие вопросы из категории
Читайте также
Надпись на клавише , находящейся рядом с клавишей Pause
ПОЖАЛУЙСТА
ПОМОГИТЕ
объекту-оригиналу , выбрать способ предстовленния информации (текст, рисунок, таблица, схема, диаграмма Эйлерра-Венна) , опредилить цель создания модели, рассмотреть объект-оригенал и назвать существенные свойства с точки зрения цели моделирования, создать информационную модель( составить описание, таблицу, нарисовать схему, диаграму или рисунок) помогите пожалуйсто
фотока на которой вся страница это мы писали в классе и это про виды информации, а надо ещё написать как-то также про информационные процессы и свойства( про что надо написать выделено на фото
ТОМУ КТО СДЕЛАЕТ КАК НАДО НЕ ПОЖАЛЕЮ И 25 БАЛЛОВ
ответьте пожалуйста
составления алгоритма , найти время , при котором Х =65536 .Пожалуйста))*