Паскаль наверное

[Kotikru]

Короче нужна помощь, очень.
Прогулял несколько пар по информатики, во вторник сессия и для автомата учитель написал мне 3 вопроса, подскажите, что это вообще или где найти ответы на эти вопросы.
1.Сумма произвольных чисел
2.Выполнить условия иапр(вроде): х>0 a=корень Х b=х во второй
3.Определить четности чисел

Почерк еле разобрал и даже не знаю как ответить и даже как найти ответы.

[whatever]

1)

program whaaat;
var
a,b:real;
begin
write('a= ');
readln(a);
write('b= ');
readln(b);
writeln('a+b= ',a+b);
readln;
end.

2)чО?

3)

ord(a);

Писал сразу на форум, не проверял.

[Serge_Bliznykov]

3)

ord(a);

- неверно!

это, разумеется,

if odd(a) then WriteLn('число нечётное');

или даже так:

if  (a mod 2) = 1 then WriteLn('число нечётное');

[whatever]

Serge_Bliznykov, ну я это и имел ввиду. Предполагалось, что ТС сам погуглит функцию odd и разберется, что она делает. Хотя кого я обманываю...

[AlexMas]

Сообщение от Kotikru

2.Выполнить условия иапр(вроде): х>0 a=корень Х b=х во второй

Видимо:

program whf;
var
a,b,x:real;
begin
write('x= ');
readln(x);
if x>0 then
begin
  writeln('a= ', sqrt(x));
  writeln('b= ', x*x); 
end;
end.

Хотя, может быть и:

program whf;
var
a,b,x:real;
begin
write('x= ');
readln(x);
if x>0 then
  writeln('a= ', sqrt(x));
writeln('b= ', x*x); 
end.

Или даже так:

program whf;
var
a,b,x:real;
begin
write('x= ');
readln(x);
if x>0 then
  writeln('a= ', sqrt(x))
else
  writeln('b= ', x*x); 
end.

=)

[Serge_Bliznykov]

Сообщение от whatever

Serge_Bliznykov, ну я это и имел ввиду. Предполагалось, что ТС сам погуглит функцию odd и разберется, что она делает. Хотя кого я обманываю...

Вы в своём сообщении написали не функцию ODD(), а функцию ORD()! я понимаю, что это Вы банально опечатались, поэтому и поправил...

[Kotikru]

Спасибо всем большое