прогоняем числа от 10 до 99 в цикле, учитываем при выводе отрицательные числа.
на tpascal:
var i: integer;
begin
for i: =10 to 99 do begin
if i mod 3 = 2 then
writeln (i,' ',-i,' ');
i: =i+1;
end;
readln
end.
Ответ дал: Гость
в некотором царстве, в некотором государстве жила-была… нет! так все сказки начинаются. а моя сказка начинается по-другому. на далёком острове среди бушующего океана информации раскинулось государство технология. царствовала там мудрая информатика. и были у неё подданные: микросхемы, мониторы, процессоры, клавиатуры, компьютерные мыши и многие другие жители. захотела информатика общаться с другими государствами и построила интернет-порталы. узнали о государстве технология на близких островах и далёких землях. царица информатика была щедрой правительницей. она приходила на всем, кто её об этом просил. все радовались неоценимым подаркам информатики. но один злой правитель захотел всё могущество и знание информатики прибрать к своим рукам. однако ему не удалось заполучить её знания, поэтому он решил причинить информатике вред. и начал он создавать армию вирусов. вирусы были коварные. под видом добрых намерений они пробирались в дома к программам и портили их. информатика и не догадывалась, какая угроза нависла над её жителями. однажды она зашла к windows xp, а он оказался испорченным и не узнал её. информатика рассказала, кто она такая, и попросила вспомнить, кто его испортил. windows вспомнил и сказал об этом информатике. информатика созвала совет старейшин и рассказала им о проблеме. посовещавшись, они вместе начали создавать антивирусы. получилось целое войско: dr. web, kaspersky, avira, panda, nod32 и другие. когда следующая партия вирусов прошла через интернет, на них набросились антивирусы и связали их. подлые враги рассказали, кто их сделал. злого правителя поймали, посадили в клетку. царица информатика не закрыла интернет, а только расставила на границах стражу от вирусов. так и по сей день правит информатика в своём государстве и делится своими знаниями с добрыми людьми
Ответ дал: Гость
var a: integer; c1, c2, c3, c4: integer;
begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.
Популярные вопросы