Ну думаю я правильно сделал, как я понял твою просьбу
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.
На телефоне нет программ для программирования (создания программ)
Утверждение Миши ложно в 1 части и истинно в 2 части.
Утверждение Коли ложно в обеих частях.
Утверждение Сергея истинно в обеих частях.
Это полностью соответствует условию, ответ - Миша