tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Вычислите произведение
Вычислите произведение натуральных чисел от 1 до 8 var s, r, n: integer begin n: =8 p: =1
instagramm1
3 22.09.2019 14:50
0
Ответы
abbasova05
08.10.2020 09:50
Program Primer;
var
P,i: Integer;
begin
P:=1;
for i:=1 to 8 do
P:=P*i;
WriteLn('Произведение чисел Р=',P);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
NextHelp
18.05.2019 14:00
Сформулируйте основные преимущества, которые дает обработка информации с электронных таблиц по сравнению с обработкой вручную. !...
Pitbull2015
18.05.2019 14:00
Написать программу, в которой пользователю предлагаетсядополнить до 100 некоторое целое число а (а - случайное число, меньшее 100)....
ДарьяДуда
18.05.2019 14:00
Переставить в исходном четырёхзначном числе первые две цифры и последние две цифры местами.например: входное 1234, выходное 3412. (что тут делать)?...
Totiva
18.05.2019 14:00
1) вычислить значение функции, y=(2cosx-tgx)/(4x^{3}-5x^{2}) , значение числителя и знаменателя вычислить и вывести на экран отдельно. (и схема) 2) составить программу...
пятимейкер
18.05.2019 14:00
Составить программу распечатки на экране чисел от 80 до 10, кратных 11. на паскале, =)...
yanashabanova1
18.05.2019 14:10
Определите полный набор исходных данных для решения следующих : приготовление обеда вычисление стоимости покупок в магазине приготовление салата по рецепту...
Yabloco4
18.05.2019 14:10
Составить программы для решения 1.найти катет прямоугольного треугольника, если известна гипотенуза и прилежащий к искомому катету угол. величину вводить в градусах....
123fafafartgd
18.05.2019 14:10
Петя и коля играют в следующую игру петя задумывает правило преобразования текстовой информации.коля может предлагать любые тексты и узнавать результаты преобразования...
Medvedevalilit2004
18.05.2019 14:10
Напишите блок-схему алгоритма программы, которая запрашивает с клавиатуры два произвольных числа x и y. если разность x и y больше 0, то вычисляет и выводит на экран...
oxpoluhina2017
18.05.2019 14:20
Из железной полосы длиной l метров нужно изготовить обруч. на соединение концов уходит d метров полосы. разработать схему алгоритма для вычисления радиуса r обруча. протестировать...
Популярные вопросы
Как решить (x-7) +3=(x+2) (x-2)...
3
Из свежей травы изготовили 3,24т корма, что составило 81 % свежей...
1
Label the pictures with the adjectives in the box kind lazy nude friendly...
1
Найти: эпитеты ,сравнения,олицетворения ,метафоры...
3
Ное исло будет меньше первоначального на 27. 1 ное число. 10. Сократите...
3
2. 1) 24,892: 5,08 + 33,6 6,5 - 230; 2) 6,22 - 4,7 - 4,8076:4,04 +...
2
6. The British children asked us more questions. Read the answers...
2
. Діагоналі чотирикутника ABCD перетинаються в точ- ці О. Аз точки...
3
Решить уравнении с решнием:(x-5,6):12=3,7(x+2,1)×4=15,2...
1
6. Амалдарды орындаңдар: + 1,5: 27 28 5 11 5 2) 117,5 45 3 13 3) 89,8:59...
3
var
P,i: Integer;
begin
P:=1;
for i:=1 to 8 do
P:=P*i;
WriteLn('Произведение чисел Р=',P);
end.