Составьте программу, которая вычисляет произведение чисел от 5 до 10 и выводит на экран ответ исключительно через while
276
407
Ответы на вопрос:
Var a: byte; mult: integer; begin a : = 5; mult : = 1; while a < 11 do begin mult : = mult * a; a : = a + 1; end; writeln('произведение = ', mult); readln; end.
Популярно: Информатика
-
Vindrosel19.09.2020 23:43
-
sascha484719.08.2020 20:10
-
Оля1111111005.04.2023 04:29
-
рем210701.02.2022 03:30
-
ENTER71726.01.2020 08:14
-
evstratova0504.07.2021 09:23
-
ryjakomsp00lne26.10.2022 17:30
-
Светик1111прод18.12.2022 10:17
-
bistreeee10.04.2022 07:03
-
123FoxYouTube12304.11.2021 16:09