1. Даны два действительных числа. Возведите в квадрат те из них, значения которых неотрицательны, и в четвертую степень – отрицательные.

2.Если целое число m делится нацело на целое число n, то вывести на экран частное от деления, в противном случае вывести сообщение «m на n нацело не делится».

3. Дано двузначное число определить:

Какая из его цифр больше, первая или вторая.

Одинаковы ли его цифры.

4. Написать программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным и выдает рекомендации о необходимости поправиться или похудеть. Оптимальный вес вычисляется по формуле: рост (в см) – 100. рекомендуемый вид экрана во время работы программы приведен ниже (данные, введенные пользователем, выделены полужирным шрифтом).

Введите в одной строке через пробел рост (см) и вес (кг) затем нажмите Enter

170 68

Вам надо поправиться на 2.00 кг.

Домашнее задание по теме: Условный оператор.

I. Расставьте строки программы в правильном порядке. Условие задачи: определите значение наибольшего из 3-х чисел.

var x, y, z: integer;

writeln (y)

end.

writeln (x);

else if (y>x) and (y>z) then 

readln (x, y, z);

program z1;

begin

else writeln (z);

writeln (‘введите 3 числа’);

if (x>y) and (x>z) then

II. Найдите значения переменных.

a:=4; b:=9; if a>b then x:= a else x:=b; write (x);

a:=5; b:=49; if a>b then x:= a + b else x:=a * b; write (x);

a:=17; b:=18; if a<=b then x:= 5 * a + b else x:=a+5*b; write (x);

a:=2; b:=4; c:=4; if b<>c  then x:= b else begin a:=b + c; x:=a*b*c; end; write (x);

a:=3; b:=7; c:=1; if (a>c) and (a>b) then x:=a + b + c else x:=a*b*c;  write (x);

a:=3; b:=7; с=1;  if (a>c) or (a>b) then x:= a+ b + c else x:=a* b *c; write (x);