Задача в pascal abc net: Вычислить произведение с помощью цикла "До(repeat)" (3+f)*(6+f)*(9+f)*...*(27+f)
1-4 класс
|
Sanya22397
15 авг. 2015 г., 5:22:56 (8 лет назад)
SNIKERSsssk
15 авг. 2015 г., 7:36:34 (8 лет назад)
var s,i,f:integer;
Begin
read(f);
s:=1;
repeat
i:=i+3;
s:=s*(i+f);
until i>=27;
writeln(s);
End.
Ответить
Другие вопросы из категории
Читайте также
Задачка в abc pascal, прошу написать полную программу от начала и до конца Сформируйте массив по правилу: элементы массива P(a) равны
своим индексам, увеличенным на один. Значение a описать в разделе констант. Выведите массив в строчку.
Паскаль
1)Ввести четырехзначное целое число. Вычислить произведение чисел, состоящих во втором и третьем разрядах.
2(Ввести дробное число. Вычислить произведение целой и дробной части числа.
Задачка в abc pascal, прошу написать полную программу от начала и до конца Сформируйте массив по правилу: элементы массива P(a) равны
своим индексам, увеличенным на один. Значение a описать в разделе констант. Выведите массив в строчку.
Вы находитесь на странице вопроса "Задача в pascal abc net: Вычислить произведение с помощью цикла "До(repeat)" (3+f)*(6+f)*(9+f)*...*(27+f)", категории "информатика". Данный вопрос относится к разделу "1-4" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.