Регистрация
Никиланджело
19.02.2023 20:40
Информатика
Есть ответ 👍

Найти произведение последовательных натуральных чисел от 7 до 12 (паскаль)?

116
310
Посмотреть ответы 2

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

dfasha1084402
dfasha1084402
4,8(84 оценок)

vari,p: integer; beginp: =1; for i: =7 to 12 dop: =p*i; writeln(p); end.

marfa228
marfa228
4,4(77 оценок)

ответ:

не знаю под чем ты подразумеваешь алгоритм, если это программа на паскаль то вот, нет ну тут уже сами справитесь, тут уж все разжевано

объяснение:

program my;

var

i: integer;

bil: longint;

a: array [1..6] of integer;

begin

write('введите номер билета');

readln (bil);

if (bil> ) or (bil< 1) then begin  

writeln('введён неправильный номер');

end

else

  for i: =1 to 6 do

  begin

  a[i]: =bil mod 10;

  bil: =bil div 10;

    writeln(a[i]);

  end;

  if (a[1]+a[2]+a[3])=(a[4]+a[5]+a[6]) then writeln('вы выиграли')

  else

  writeln('вы проиграли');

end.

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