Войти Регистрация Спроси ai-bota

Вычислите факториал используя оператор repeat.!

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

arinuchik

01.08.2022 00:45

Простите, что можно написать в задачах исследования, если мой проект называется исследование проблемы интернет. его плюсы и минусы ? (учусь на программиста) от...

lybchikfreed

24.05.2023 18:13

ХЕЛП ЯЗЫК ПИТОН Используя полное ветвление, у следующий фрагмент программы: if a b: c = 1 if a b: d = 2 if a = b: c = 3 if a = b: d = 4 3. Имеются данные о количестве полных...

Аня29718282

17.12.2020 11:50

Что производит следующий фрагмент программы...

ученик1443

17.12.2020 11:50

1. Учёные подсчитали количество людей на нашей планете. 1 января 2014 года население Земли достигло семи миллиардов двухсот миллионов (?) человек. 2. Принято считать, что на...

ShkolnikN15

02.08.2022 14:37

информатика ; тест « информационные ресурсы и сервисы интернета » 1 ) логин — это .. 1. почтовый адрес 2. имя сервера 3. сочетание символов , которое ассоциируется с пользователем...

Fagga322

09.01.2023 07:13

Які з тверджень (А–Г) є істинними? Позначте всі правильні відповіді. (Кількість балів 1.50) А Оператори тіла циклу виконуються доти, поки умова хибна Б Якщо умова набуває значення...

ДичьМэн

17.06.2020 14:11

1. Что выведет на экран программа? а:=1 а:=1; вывод a write (а); а:=5 а: =5; вывод a write (а); 5. а:=а+1 а:=а+1; b:=b+1 b:=b+1; a:=a+b a:=a+b; b:=b+a b:=b+a; a:=a+1 a:=a+1...

aseeva2883

05.10.2020 14:58

Книга содержит 140 страниц. На каждой странице 35 строк. В каждой строке 56 символов (включая пробелы). Найти информационный объём текста, считая, что каждый символ кодируется...

БлэтНэвэльный

15.12.2021 03:25

Вычисли значение математического выражения в (86+122)−2(78:(6+10)). (ответ округли до сотых)...

mikreaz

13.10.2020 21:20

Практична робота Які три помилки у наступному коді? ( ) x = input( Enter a number: ) if x = 3 print( You entered 3 ) Чого не вистачає в цьому коді? (1б) temperature = float(input(...

Ответ:

Lia20020313

02.10.2020 12:55

Var f,n,i:integer;
begin
readln(n);
i:=1;
f:=1;
repeat
f:=f*i;
i:=i+1;
until i>n;
writeln(f);
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку