var s, k : integer; begin k := 1; for var i := 1000 to 9999 do begin s := 0; for var j := 0 to 3 do begin s += (i div round(power(10, j)) mod 10) end; if (i mod s = 0) then begin write(i, ' '); if (k mod 4 = 0) then writeln; k += 1 end end end.
var sum, i: integer; begin sum := 0; for i := 1 to 100 do sum := sum + i; writeln('Сумма всех чисел от 1 до 100: ', sum); end.
№2
var p, i: integer; begin p := 1; for i := 1 to 10 do p := p * i; writeln('Произведение всех чисел от 1 до 10: ', p); end.
№3
У вас не дано никаких условий. Вот задача для условия: "Членов прогрессии - 100, шаг - 3"
var A, i, k, max: integer; begin i := 3; max := 100; for k := 1 to max do begin A := A + i;write( A, ' '); end; end.
№4
var sum, x: real; a: array[1..10] of real; i: integer; begin sum := 0; for i := 1 to 10 do begin write('Введите ', i, ' число: '); readln(a[i]); sum := sum + a[i]; end;
Var h,h1,m,m1,k,k1,b:integer; begin write('h, h1: '); readln(h,h1); write('m, m1: '); readln(m,m1); write('k, k1: '); readln(k,k1); if h div h1 < m div m1 then b:=h div h1 else b:=m div m1; if k div k1 < b then b:=k div k1; writeln('b = ',b); end.
Пример: h, h1: 1000 100 m, m1: 600 50 k, k1: 500 50 b = 10
С определяется на сколько бутербродов хватит хлеба, масла или колбасы соответственно. Из этих количеств выбирается минимальное значение. В примере: хлеба хватит на 1000 div 100 = 10 бутербродов, масла - на 600 div 50 = 12; колбасы - на 500 div 50 = 10. Значит, из данного количество продуктов можно сделать 10 полноценных бутербродов.
//(c) NaaMan;
var
s, k : integer;
begin
k := 1;
for var i := 1000 to 9999 do begin
s := 0;
for var j := 0 to 3 do begin
s += (i div round(power(10, j)) mod 10)
end;
if (i mod s = 0) then begin
write(i, ' ');
if (k mod 4 = 0) then writeln;
k += 1
end
end
end.