Ответы на вопрос:
Var a,i: integer; begin; a: =1; while i< > 5 do begin; inc(i); a: =a*sqr(i); end; writeln(a); end.
Популярно: Информатика
-
Устройство ввода прямое назначение которого ввод символьной информации -...
влада40903.01.2023 11:50 -
Мысленное расчленение предмета на части называется?...
Elsh77710.04.2022 07:36 -
Вывести элементы массива (типа string ) ...
tupayadaria14.02.2022 12:12 -
Ть будь ласка написати висновок на фото скоріш...
yakirill010920030.07.2020 19:47 -
Решите pascalabc дана последовательность слов. напечатать те слова последовательности,...
gladishsofiya15.12.2020 10:05 -
Паскаль абс. составить программу для решения следующей : пират флинт положил...
мозг2017а08.05.2023 08:32 -
Продолжите ряд: i486, athlon, pentium, celeron, a) core i7 б) coreldraw...
fasio4619.02.2023 08:26 -
Расшифруйте анограммы и выберите лишнее слово. (анограммы - это головоломки,...
JackLiff14.11.2022 03:49 -
Необхадимо оформить несколько дакументов . запишите какие возможности тестовых...
fdnk112.01.2023 14:14 -
4: ввести натуральное число и определить, верно ли, что сумма цифр равна...
vorobyv200413.02.2022 20:48