Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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.
50 страниц.= 50*20 строк = 50*20*10 символов = 50*20*10 байт = 10 000 байт
10 картинок=10*100*200 пикселей = 10*100*200*3 байта = 600 000 байт
страус- самая крупная в мире птица. не летает
1)сила всех и глубина вростания репки, так же состояние здоровья каждого и состояние почвы
а так же не завалялась ли где нормальная лопата
2)смотря что такое по братски, но зная карлсона, он возьмет себе большой
3)главное чтоб пончику хватило. а больше он все равно сделать не в состоянии
4) радиус двери, радиус вини, прирост от сгущенки, прирост от меда, кол-во того и другого, скорость похудения и тп
Популярные вопросы