Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
помогите составить программу на Паскале СРОЧНО
Даны А и В. Меньшее из двух заданных неравных чисел увеличить вдвое, а большее уменьшить на 3. Вычисление оформить как процедуру и как функцию
1 | Автор: Hachetlov_R | 2012-05-24, 13:03   |  Репутация: [ + 0 ]
var
a,b:integer;
begin
read(a,b);
if a>b then begin a:=round(a/3);b:=b*b;end;
if a<b then begin a:=a*a;b:=round(b/3);end;
writeln(a,' ',b);
end.

Закинь в процедуру и будет работать)

"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-05-24, 18:09   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: