Регистрация
hat345oxt288
22.09.2021 23:43
Информатика
Есть ответ 👍

Сциклов вывести на экран номера всех "счастливых" билетов из диапазона 000000 до 999999

269
284
Посмотреть ответы 3

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

sitkovskiygleb
sitkovskiygleb
4,5(10 оценок)

var i1,i2,i3,i4,i5,i6: longint; begin for i1: =0 to 9 do for i2: =0 to 9 do for i3: =0 to 9 do for i4: =0 to 9 do for i5: =0 to 9 do for i6: =0 to 9 do if i1+i2+i3=i4+i5+i6 then writeln('счастливый билет': i1,i2,i3,i4,i5,i6); writeln('все миллионеры : d')end.

evadudina2016
evadudina2016
4,6(13 оценок)

var

  i1,i2,i3,i4,i5,i6: longint;

begin

  for i1: =0 to 9 do

  for i2: =0 to 9 do

  for i3: =0 to 9 do

  for i4: =0 to 9 do

  for i5: =0 to 9 do

  for i6: =0 to 9 do

      if i1+i2+i3=i4+i5+i6 then writeln(i1,i2,i3,i4,i5,i6);

end.

викусямиуся
викусямиуся
4,7(76 оценок)
Const   n = 20; var   x: array[1..n] of integer;   i, s: integer; begin   randomize;   s : = 0;   write('элементы массива: ');   for i : = 1 to n do   begin       x[i] : = random(101) - 50;       write(x[i]: 5);       if x[i] > = 0 then s : = s + sqr(x[i])   end;   writeln(#13#10, 'сумма квадратов неотрицательных элементов равна ', s) end. тестовое решение: элементы массива:     -29      1  -36    50  -29    31      4    28  -25    -1    17  -45  -48  -19  -49  -49  -30  -22      8    18 сумма квадратов неотрицательных элементов равна 4939

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