Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
ilsafsanatullov
31.03.2020 02:01 •
Информатика
Спрограммированием! : нужно нарисовать блок схему и написать программу к . программу писать нужно на языке паскаль.( язык турбо паскаль). вот сама : вычислить произведения целых чисел от 4 до 7. модель : p=4*5*6*7
Ответ:
Victor111111111
24.04.2020 02:26
Блок-схема - в прилагаемом файле.
Программу Вам написали правильно:
var
i, p: integer;
begin
p := 1;
for i := 4 to 7 do p := p * i;
writeln('P = ', p);
end.
Результат:
P = 840
0,0
(0 оценок)
Популярные вопросы: Информатика
ZhoniLegend
09.09.2020 12:16
Сколько битов необходимо для кодирования 16 цветного изображения...
oliasnigur2016
20.06.2022 04:17
Дано пятизначное число.переставить две левые цифры в правую сторону....
сомхиев
28.12.2022 12:50
А)Число одновременного обрабатываемых процессором бит б)Ячейка процессора , в котором хранится машинное слово в двоичном коде...
losp
14.11.2022 17:49
Соберите генеалогическое дерево семьи Ивановых по словесному описанию. У деда Тимофея было два сына и дочка. Его дочь Света очень любила своего сына Витю. Маленькие внуки Иван и...
xaker228lol
10.05.2023 11:12
Скільки байтів знаходиться в Кбайті...
Генгстер
23.01.2021 17:32
Program p1; var y,x:integer; begin writeln ( введите 2 числа ); readln (x,y); writeln ( x+y=z x-y=a ); s:=x+y; n:=x-y; writeln ( Сумма= ,s); writeln ( Разность= ,n); end. там где...
феня163
21.08.2020 23:41
защиты информации Я не знаю вот на этот вопрос ответь и защиты информации. Бы...
LoviLopatu
20.07.2020 08:46
Какая возможность программы-архиватора лишняя в списке? создание многотомного архива извлечение файлов из архива создание самораспаковывающегося архива передача архива по сети...
onaleman
24.04.2020 03:57
Разгадай шифр Гая Юлия Цезаря Wytiv wxev...
Hah125
07.06.2022 01:15
. нужно решить на С++. 4. Book: Автор, Название, Издательство, Год, Количество, страниц. Создать массив объектов. Вывести: a) список книг заданного автора; b) список книг, выпущенных...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Программу Вам написали правильно:
var
i, p: integer;
begin
p := 1;
for i := 4 to 7 do p := p * i;
writeln('P = ', p);
end.
Результат:
P = 840