Операторы цикла

[Paul Oakenfold]

1. Напечатайте таблицу стоимости сыра весом 50, 100, 150,..., 1000 г по цене 250 р. за 1 кг. Все данные расположите в несколько столбцов так, чтобы они были видны на экране.

2. Определите и выведите на экран количество чисел от 50 до 500, которые делятся на 11 и 13 одновременно.

3. Найдите и выведите на экран все трехзначные числа, сумма цифр которых равна данному целому числу N, введенному с клавиатуры. N не должно превышать 27.

[IT-man]

1

FOR I:=1 TO 20 DO BEGIN
 WRITE (I*50/4,'  ');
 IF I MOD 2 =0 THEN WRITELN;
END;

2

k:=0; 
for i:=50 to 500 do
if (i mod 11 = 0) and (i mod 13=0) then inc(k) 
writeln('k=',k);

3

readln(n);
if n<=27 then begin
for i:= 100 to 999 do begin
k3:=i mod 10;
k2:=(i mod 100) div 10;
k1:=i div 100;
s:=k1+k2+k3;
if s=n then writeln(i);
end
else writeln('4islo doljno byt <=27');