Регистрация
TheBrainCatty
01.02.2021 03:17
Информатика
Есть ответ 👍

Найти все числа,меньшие заданного числа n, сумма чисел которых равна 10. ,, программа паскаль.

257
337
Посмотреть ответы 2

Ответы на вопрос:

ilyavip0412
ilyavip0412
4,5(54 оценок)
Pascalabc.net 3.4.2, сборка 1857 от 05.11.2018 внимание! если программа не работает, обновите версию!

function суммацифр(число: integer): integer;

begin

  result : = 0;

  while число > 0 do

  begin

    result += число mod 10;

    число : = число div 10

  end

end;

begin

  for var очередноечисло : = 1 to readinteger('n=') do

    if суммацифр(очередноечисло) = 10 then print(очередноечисло)

end.

n= 300 19 28 37 46 55 64 73 82 91 109 118 127 136 145 154 163 172 181 190 208 217 226 235 244 253 262 271 280
ilya482
ilya482
4,5(73 оценок)

program dartdeet;

var a: array[1..10] of integer;

i, temp: integer;

begin

for i: = 1 to 10 do

a[i]: =random(26)+15;

writeln('исходный массив: ');

for i: = 1 to 10 do

write(a[i]: 3, ' ');

writeln;

for i: = 1 to 10 do

if i mod 2 = 0 then  

a[i]: =a[i]*2

else

a[i]: =a[i]*3;

writeln('преобразованный массив: ');

for i: = 1 to 10 do

write(a[i]: 3, ' ');

end.

Популярно: Информатика