var
x, y, z: <em>real</em>;
a, b, c: <em>real</em>;
begin
readln(x, y, z);
if (x + y < 1) then
begin
a := (y + z) / 2;
b := (x + z) / 2;
c := (x + y) / 2;
x := a;
y := b;
z := c;
end
else
begin
x := sqr(x);
y := sqr(y);
z := sqr(z);
end;
writeln(x, ' ', y, ' ', z);
end.
var a: integer;
begin
readln(a);
if a<0 then a:=(-1)*a;
if (a mod 2<>0) and (a>9) and (a<100) then
write(a,' - нечетное двузначное число') else
write(a,' - не является нечетным двузначным числом');
end.
Куропатка(130) * муравей или ноосфера(160) = 20800
Математические задачи, которые способствуют развитию логики и сообразительности, тренирует мозг.
При составлении ребусов числового типа пользуются следующими правилами. Все использующиеся цифры заменяют буквами. Числовые ребусы могут быть составлены из нескольких рядов символов, а между ними ставится определенное количество математических знаков, которые являются указателями для того, какие действия необходимо произвести по вертикали, а какие по горизонтали. Числовые ребусы являются очень популярными не только в школах на обычных уроках, но и на математических олимпиадах. решить числовые ребусы можно с помощью компьютерных программ, однако ни с чем несравнимое удовольствие может получить человек, который самостоятельно ломает голову над разгадкой и в конце концов ее находит.
var
a, b : real;
begin
writeln ('Введите температуру');
read (a);
writeln ('Введите скорость ветра');
read (b);
if (a <= -25) or ((b >= 7) and (a <= -20)) then writeln ('Можно не идти') else writeln ('Увы');
end.