Практическая работа. Условные операторы.

[Mixozz]

Помогите, пожалуйста, сделать полностью программы по всем 3-ём задачам!
http://floomby.ru/content/GEouSwrJUW
Заранее большое спасибо!

[VIK_aka_TOR]

стучите в асю... пишите в личку... все 3 быстро и недорого...) или жее выкладываем то что у вас получилось...

[Mixozz]

2. Определить, равен ли квадрат заданного трёхзначного числа кубу суммы цифр
этого числа.
Для этой задачи нашел такое решение:

Program TWO;
Uses crt;
var a,b,c,z,s,kv: integer;
Begin
Clrscr;
Writeln ('Введите число');
Readln (a);
kv:=a*a;
b:=a div 100;
a:=a mod 100;
c:=a div 10;
z:=a mod 10;
s:=b+c+z;
s:=s*s*s;
if s=kv then Writeln ('Квадрат числа равен кубу суммы его цифр')
else Writeln ('Квадрат числа не равен кубу суммы его цифр');
Readln;
end.

Вроде бы всё правильно. Но при своей проверке что то не сходится. Ввожу число 448. Его квадрат = 200704. А куб суммы его цифр 4096. Числа не равны, а программа пишет что равны... В чём ошибка?

[puporev]

Uses crt;
var a,b,c,z,s,kv: integer;
Begin
Clrscr;
Writeln ('Введите число');
Readln (a);
kv:=a*a;
b:=a div 100;
c:=a mod 100;
z:=a div 10 mod 10;
s:=b+c+z;
s:=s*s*s;
if s=kv then Writeln ('Квадрат числа равен кубу суммы его цифр')
else Writeln ('Квадрат числа не равен кубу суммы его цифр');
Readln;
end.

[Mixozz]

Спасибо! Помогите с 1 и 3. Сейчас сам ещё попробую...
3 задача решается с помощью оператора case

[Mixozz]

3. В детском зимнем лагере отдыха детям не разрешено выходить на прогулку, если
температура воздуха ниже -10С. При этом при температуре от -7С до -10С им
разрешено гулять один час, при температуре от -6С до -3С – полтора часа, от 0С
до -2С прогулка может продолжаться два часа. Составьте программу, которая в
зависимости от вводимой с клавиатуры температуры будет печатать длительность
допустимой прогулки или выводить сообщение, что прогулка запрещена.

Эту задачу решил так. Правильно?
http://floomby.ru/content/hvA7hj2cXU

[Arhangel7]

решена правильно

[Mixozz]

http://floomby.ru/content/GEouSwrJUW
Ну и наконец, 1-ую задачу решил так.
http://floomby.ru/content/fy9NPs1gHE
Проверьте плз.

[Arhangel7]

твой код вроде правельный, но я написал бы так:

var
x,y: real;
begin
   writeln('введите Х и Y');
   readln(X,Y);
   if (y>= -2) and (Y<= 1.5)
      then writeln ('точка принадлежит заштрихованнои области')
      else writeln ('точка не принадлежит заштрихованнои области');
   readln;
end.