Заменить числа их квадратами

@Deathpain · Регистрация: 17.02.2011

Author24 — интернет-сервис помощи студентам

С клавиатуры вводим целые числа a,b,c. Если a ≤ b ≤ c, то заменить эти числа их квадратами.Если a>b>c, то каждое число поменять самым большим с них.

@ALXS · 06.05.2011, 19:16

Pascal

program yyy;
uses
    crt;
var
   a,b,c:integer;
begin
     clrscr;
     writeln('Vvesdite a,b,c');
     readln(a,b,c);
 
     if (a<=b) and ( b<=c) then
        begin
             a:=a*a;
             b:=b*b;
             c:=c*c;
        end;
 
     if (a>b) and (b>c) then
        begin
             b:=a;
             c:=a;
        end;
 
     writeln(a,' ',b,' ',c);
     readln;
end.

это элементарно

@Deathpain · 06.05.2011, 22:42 **[ТС]**

элементарно,но я не дружу с Паскалем)
благодарю!

@Deathpain 0 / 0 / 0 Регистрация: 17.02.2011 Сообщений: 10
		1
	Заменить числа их квадратами 06.05.2011, 18:15. Показов 1133. Ответов 2 Метки нет (Все метки) С клавиатуры вводим целые числа a,b,c. Если a ≤ b ≤ c, то заменить эти числа их квадратами.Если a>b>c, то каждое число поменять самым большим с них. 0

@Deathpain 0 / 0 / 0 Регистрация: 17.02.2011 Сообщений: 10
	06.05.2011, 22:42 [ТС]	3
	элементарно,но я не дружу с Паскалем) благодарю! 0

Заменить числа их квадратами

Решение