Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите решить задачу по Паскалю))))))пожаликкк,срочно..
Помогите решить задачу по Паскалю))))))пожаликкк,срочно..
Написать программу на языке Паскаль.Даны два целых положительных числа N и M.Заменить большее из них суммой этих двух чисел,а меньшее возвести в квадрат.
1 | Автор: sergey313 | 2012-03-04, 10:08   |  Репутация: [ + 0 ]
var
n,m:integer;
begin
read(n,m);
if n>m then begin n:=n+m;m:=m*m;end else begin
m:=n+m;n:=n*n;end;
writeln(n,' ',m);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-03-06, 13:11   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите решить задачу по Паскалю))))))пожаликкк,срочно..
Страница 1 из 11
Поиск: