Изображение пользователя Иутин Николай
Обновления
от Иутин Николай - Четверг 15 Ноябрь 2007, 15:39
 

Добавленны новые возможности

Учителям:

  • Перепроверка всех решений в контесте.

Студентам:

  • Автообновление монитора.
  • Возможность просмотра собственных решений.
Изображение пользователя Вихарева Элина
Re: Обновления
от Вихарева Элина - Четверг 29 Ноябрь 2007, 11:06
 
program v; var a,b:integer; begin read(b,a); if ((a<b)and(a<10000)and(b<10000)) then writeln('Mother is younger then father'); if ((a>b)and(a<10000)and(b<10000)) then writeln('Mother is older than father'); if ((a=b)and(a<10000)and(b<10000)) then writeln ('Mother and father are of the same age'); end. 
Изображение пользователя Вихарева Элина
Re: Обновления
от Вихарева Элина - Четверг 29 Ноябрь 2007, 11:11
 
var a, b, c:integer;
begin
readln(a,b,c);
if (a>b) and (a>c)
then
writeln('First number is maximal');
if (b>a) and (b>c)
then
writeln('Second number is maximal');
if (c>a) and (c>b)
then
writeln('Third number is maximal'); end.