Ответы на вопрос:
Var i, p: integer; begin p : = 1; i : = 5; while i < = 10 do begin p : = p * i; i : = i + 1; end; writeln(p); end.
Популярно: Информатика
-
Установите соответствие изображений и эффектов 1) эффект старого фото 2) эффект...
BoomerLass29.01.2023 13:12 -
Перечислите какие знаки логических отношений и операций можно использовать...
verka00023.09.2020 18:41 -
Напишите программу в Паскале, высчитывающую объем цилиндра (формула объем=пи*R^2*h),...
TMTkid13.01.2022 04:46 -
решить ребус нужно!!...
2005SuperMax200506.04.2023 10:59 -
payton Визначити, чи заданий рядок є паліндромом - читається однаково в обидві...
Emma51027.03.2021 16:03 -
Гиперсілтеме дегеніміз не?...
FoxFantasy04.08.2020 16:13 -
Учень , який буде використовувати мультимедіа та ігри...
JonHenryEdem121.09.2022 13:00 -
Надо, выписать колонку сравнения чисел в десятичной и в двоичной системах счисления...
ksjsksskskjns16.03.2023 17:07 -
Впримерах выбери только те, в которых множество объектов находится в отношениях...
gulmamedovaxayald16.11.2021 21:24 -
Впримерах выбери только те, в которых объект находится в отношениях с множеством...
romanvailev1502.02.2020 17:05