Тема #172542

 #  

 #  

 #  

тут без словаря не обойтись

 #  

Я тоже не понял о чем речь.

 #  

Я примерно понял.Смогу решить,если переведешь.

 #  

#1458307 пишет

Кто знает как ее решить?

кто знает перевод?

 #  

#1490578 пишет

0 [17.03.2013 16:21] o Рейтинг 40.28 Стена пользователя o +7 Все ответы пользователя o

Я примерно понял.Смогу решить,если переведешь.

поблагодарить пользователя +0.01$ поблагодарить пользователя +1 Cr хороший ответ хороший ответ плохой ответ плохой ответ

Выделите текст и нажмите для цитирования #
0 [17.03.2013 16:21] Neo345 Рейтинг 626.66 Стена пользователя Neo345 +127 Все ответы пользователя Neo345

Sultan-Suleyman пишет Кто знает как ее решить?

кто знает перевод?

google-переводчик: Даны три числа a, b и с. Поднесите к квадрату те из них, значения которых неотделимы. Отрицательные оставьте без изменений.

 #  

program xxx;
var a,b, c : integer;
begin

(тут нет "no",wmmail тупит)writeln('Введите 3 числа-');

readln(a,b,c);
if a>=0 then a:= sqr(a);

if b>=0 then b:= sqr(b);

if c>=0 then c:= sqr(c);

writeln('a = ', a, ', b = ', b, ', c = ', c);
readln;
end.

 #  

#1490578 пишет

Я примерно понял.Смогу решить,если переведешь.

Изменил перевод, может понятней будет

 #  

if a>0 then a*a else a
как-то так
остальные по аналогии

 #  

#1458307 пишет

Кто знает как ее решить?

А Паскаль знает.

 #  

#1162506 пишет

#1458307 пишет

Кто знает как ее решить?

А Паскаль знает.

Нет.

 #  

легко