циклы с предусловием и постусловием

@Тяжелый случй · Регистрация: 26.10.2009

Студворк — интернет-сервис помощи студентам

Ребятки!!!!!!!!!Помогите пожалуйста!!!!!!!!!! Составить программу для задачи"подсчитать сумму чисел от заданного числа до заданного, используя а) оператор цикла с предусловием и б)с циклом постусловия. помогите плиииз!!!!!!!!!!!!!!!!!!!!!!!

@meter · 26.10.2009, 19:45

Pascal
1
2
3
4
5
6
7
8
9
10
11
Program geto;
Var I,n:integer;
S: real;
Begin
Write('n=');
Readln(n);
S:=0;
For i:=1 to n do
s:=s+i;
Write('s=',s);
End.

N вводиться с клавиатурой

@Тяжелый случй · 26.10.2009, 22:07 **[ТС]**

meter, а это же будет решение с циклом параметра то что ты написал

@meter · 26.10.2009, 22:31

Сообщение от Тяжелый случй

meter, а это же будет решение с циклом параметра то что ты написал

А все понял, сори затупил=)

@Тяжелый случй · 27.10.2009, 13:15 **[ТС]**

meter, а ты не мог бы мне еще помочь??)) надо подсчитать сумму ЧЕТНЫХ ЧИСЕЛ от заданного до заданного, с циклом с параметром. я тут делала,но чет не получилось,посмотри плииз)))

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Program geto;
Var I,n:integer;
S: real;
Begin
Write('n=');
Readln(n);
S:=0;
For i:=2 to n do
begin
i:=i+2; s:=s+i
end;
Write('s=',s);
End.

@mamedovvms · 27.10.2009, 13:20

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program geto;
Var I,n:integer;
S: real;
Begin
Write('n= ');
Readln(n);
S:=0;
 
i:=2;
while i<=n do
begin
 s:=s+i; i:=i+2;
end;
Write('s=',s);
End.

@Puporev · 27.10.2009, 13:23

Pascal
1
2
For i:=a to b do //a,b заданы
if i mod 2=0 then s:=s+i

Добавлено через 1 минуту
Это я по условию написал

сумму ЧЕТНЫХ ЧИСЕЛ от заданного до заданного, с циклом с параметром.

@Тяжелый случй · 27.10.2009, 13:24 **[ТС]**

а условие сумме НЕЧЕТНЫХ чисел не подскажешь?

@Puporev · 27.10.2009, 13:26

Тяжелый случй, Ты вообще что ли?

Pascal
1
if a[i] mod 2<>0

@Тяжелый случй · 27.10.2009, 13:31 **[ТС]**

я прост уже 2 дня сижу мучаюсь...нам в универе тему не объяснили ,а задач ужас скок дали....

Добавлено через 4 минуты
подсчитать сумму ЧЕТНЫХ ЧИСЕЛ от заданного до заданного с циклом с постусловием???

@Puporev · 27.10.2009, 13:35

Pascal
1
2
3
4
5
6
if a mod 2=0 then s:=a
else s:=0;
repeat
a:=a+1;
if a mod 2=0 then s:=s+a;
until a=b;

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@Тяжелый случй 0 / 0 / 0 Регистрация: 26.10.2009 Сообщений: 53

	циклы с предусловием и постусловием 26.10.2009, 19:39. Показов 2614. Ответов 10 Метки нет (Все метки) Ребятки!!!!!!!!!Помогите пожалуйста!!!!!!!!!! Составить программу для задачи"подсчитать сумму чисел от заданного числа до заданного, используя а) оператор цикла с предусловием и б)с циклом постусловия. помогите плиииз!!!!!!!!!!!!!!!!!!!!!!! 0

@Тяжелый случй 0 / 0 / 0 Регистрация: 26.10.2009 Сообщений: 53
	26.10.2009, 22:07 [ТС]
	meter, а это же будет решение с циклом параметра то что ты написал 0

@Тяжелый случй 0 / 0 / 0 Регистрация: 26.10.2009 Сообщений: 53
	27.10.2009, 13:24 [ТС]
	а условие сумме НЕЧЕТНЫХ чисел не подскажешь? 0

@Тяжелый случй 0 / 0 / 0 Регистрация: 26.10.2009 Сообщений: 53
	27.10.2009, 13:31 [ТС]
	я прост уже 2 дня сижу мучаюсь...нам в универе тему не объяснили ,а задач ужас скок дали.... Добавлено через 4 минуты подсчитать сумму ЧЕТНЫХ ЧИСЕЛ от заданного до заданного с циклом с постусловием??? 0