Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus) - [1512] :: Прикладное программирование

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus)

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению

blondie_in_soul

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

program zadacha_1;
label JO;
var Xmax,X1,X2,X3,y:real;
nv:byte;
begin
nv:=1;
JO:read (x1,x2,x3);
if (x1>x2) and (X1>x3) then Xmax:=X1
;if (x2>x3) and (X2>x1) then Xmax:=X2
;if (x3>x1) and (X3>x2) then Xmax:=X3
;if (xmax>5.5) then y:=x1+x2
else
if (Xmax<=5.5) then y:=x2-x3;
writeln(y:0:10);
inc (nv);
if nv<=5 then goto JO;
end.

Всего записей: 1 | Зарегистр. 30-10-2007 | Отправлено: 01:37 30-10-2007 | Исправлено: blondie_in_soul, 23:12 30-10-2007

На первую страницу • к этому сообщению • к последнему сообщению

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC