Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx; var a,b, c : integer; begin
writeln('введите 3 числа-');
read(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('ответ: ');
write(a, b, c);
readlnend.
бег-бог-лог-лаг-шаг
бант-кант-карт-кара-кора-коса
шар-бар-бам-бум-кум-куб
муха-мура-фура-фора-кора-корн-коан-клан-клон-слон
миг-маг-мак-бак-бек-век
Популярные вопросы