tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Впаскале с 3 циклами и комментариями
Впаскале с 3 циклами и комментариями while repeat for дано целое число n (> 0). найти сумму n2 + (n + 1) 2 + (n + 2) 2 + (целое число)
byilyas
1 19.07.2019 15:30
1
Ответы
mravals
15.09.2020 19:19
// Цикл while
var
n, i, s: integer;
begin
readln(n);
s := 2 * n;
i := 1;
while i <= n do
begin
s := s + 2 * (n + i);
i := i + 1;
end;
writeln(s);
end.
//цикл Repeat
var
n, i, s: integer;
begin
readln(n);
s := 2 * n;
i := 1;
repeat
s := s + 2 * (n + i);
i := i + 1;
until i > n;
writeln(s);
end.
// Цикл for
var
n, i, s: integer;
begin
readln(n);
s := 2 * n;
for i:=1 to n do
s := s + 2 * (n + i);
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
uvalievnursulta2
14.12.2021 20:31
Остатки Даны целые неотрицательные числа a, b, c, d, при этом 0≤c using namespace std; int main() { int a, b, c, d, i; cin a b c d; i = a + (c - a % d); while (i = b) { cout i...
Natusik04
20.03.2019 07:20
Шнур длиной 30м разрезали на три части.причём одна из них на 1 м больше другой и на 1 м меньше третьей.найди длину каждой части....
Мурмурыч
20.03.2019 07:10
(дана величина а, выражающая объем информации в байтах. перевести а в более крупные единицы измерения информации.) var a: real; begin readln(a); writeln( в килобайтах a/1024);...
Инав
20.03.2019 07:00
3.сообщение составленное, с 64—символьного алфавита, содержит 870 символов. какой объем информации оно несет?...
Аня20171502
20.03.2019 07:00
Дан массив а целых чисел состоящий из 15 элементов. заполнить с клавиатуры: найти номер первого отрицательного элемента делящегося на 5 с остатком 2....
nik7748
20.03.2019 06:50
Как можно вообщем назвать хранение, передача,...
Donziik
20.03.2019 06:50
Как можно вообщем назвать сканер, клавиатура, мышь,...
Beauty50
20.03.2019 06:50
Синформатикой: звучит так: 1.нарисуй в окне цепочку цифр, для которой истинно утверждение: вторая и третья цифры в этой цепочке разные. 2. нарисуй в окне цепочку цифр, для которой...
evgenyzuzev
20.03.2019 06:50
Дискета объемом кбайт весит 20г.сколько будет весить набор дискет,необходимый для полного копирования информации с жесткого диска объемом 80 гбайт...
shamilvip66
20.03.2019 05:35
Решите ! жизни и смерти с решением...
Популярные вопросы
Как закончит предложение в лампе превращается...
2
Вкаком городе происходит действие рассказа смерть чиновника?...
1
Когда не ставиться степень окисления...
2
Как написать правильно слово инеем или инеим...
1
Биология 7-8 класс. яйцеклетка похожа на амебу у: белой планарии,гидры,аскариды...
3
1. проведите реакции, , что в состав серной кислоты входят ионы водорода и...
3
Решите уравнение: 2/5=6/x+3; 5/6=15/2x-3; 12: 4/5x=20: 1/4....
3
Начертите график функции убывающий на промежутке -1...
2
Предположим, что вы катитесь на велосипеде по инерции со скоростью 5 м/с и...
3
Тело массой 2 кг падает без начальной скорости с высоты 10 м и после удара...
3
var
n, i, s: integer;
begin
readln(n);
s := 2 * n;
i := 1;
while i <= n do
begin
s := s + 2 * (n + i);
i := i + 1;
end;
writeln(s);
end.
//цикл Repeat
var
n, i, s: integer;
begin
readln(n);
s := 2 * n;
i := 1;
repeat
s := s + 2 * (n + i);
i := i + 1;
until i > n;
writeln(s);
end.
// Цикл for
var
n, i, s: integer;
begin
readln(n);
s := 2 * n;
for i:=1 to n do
s := s + 2 * (n + i);
writeln(s);
end.