Контрольная работа: Программирование решения задач

var

sum, i : integer;

function sumc(val : integer) : integer;

var

x: integer;

begin

x:= 0;

repeat

x := x + val mod 10;

val := val div 10;

until val = 0;

sumc := x;

end;

begin

for i := 10 to 99 do

begin

sum := sumc(i);

if sumc(i*2) = sum then writeln('2: ', i);

if sumc(i*3) = sum then writeln('3: ', i);

if sumc(i*4) = sum then writeln('4: ', i);

if sumc(i*5) = sum then writeln('5: ', i);

if sumc(i*6) = sum then writeln('6: ', i);

if sumc(i*7) = sum then writeln('7: ', i);

if sumc(i*8) = sum then writeln('8: ', i);

if sumc(i*9) = sum then writeln('9: ', i);

ReadLn;

end.

Рис. 4. Результаты работы программы для задачи 4

Задача №5

Одномерный массив, содержащий N элементов, состоит из нулей, единиц и двоек, расположенных в произвольном порядке (заполнение массива-случайным образом). Преобразовать массив так, чтобы вначале расположились все двойки, затем все нули и, наконец, все единицы.

Решение

program Project5;