Помогите кто чем может,2 задачи на паскале;( - Паскаль, Turbo Pascal, PascalABC.NET

Freia · 26.11.2008, 13:09

1)Подсчитать сумму цифр от 10 до 5,с помощью оператора с постусловием;
2)Написать программу печати четных чисел,начиная от 0 до 39.
..может поможите кто-нибудь?

Викдон · 26.11.2008, 13:16

2) for i:=1 to 39 do
if (i mod 2 =0) then
write(i,' ');

Freia · 26.11.2008, 19:46

А первую не знаете как делать?..

Викдон · 26.11.2008, 20:05

что есть сумма цифр от 10 до 5? пример покажи: т.е сложить 5+6+7+8+9+10?

Freia · 26.11.2008, 20:14

Да,да,так...

Викдон · 26.11.2008, 20:25

summa:=0;
i:=4;
repeat
i:=i+1;
summa:=summa+i;
until(i=10);

26.11.2008, 13:09	#1
Freia Пользователь Регистрация: 18.11.2008 Сообщений: 26	Помогите кто чем может,2 задачи на паскале;( 1)Подсчитать сумму цифр от 10 до 5,с помощью оператора с постусловием; 2)Написать программу печати четных чисел,начиная от 0 до 39. ..может поможите кто-нибудь?

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Помогите, кто чем может. (Паскаль)	KORT	Помощь студентам	8	03.11.2007 13:26
Файлы rtl помогите кто чем может!	Muscat	БД в Delphi	5	18.02.2007 03:36

26.11.2008, 13:16	#2
Викдон Форумчанин Регистрация: 11.11.2008 Сообщений: 161	2) for i:=1 to 39 do if (i mod 2 =0) then write(i,' ');

26.11.2008, 19:46	#3
Freia Пользователь Регистрация: 18.11.2008 Сообщений: 26	А первую не знаете как делать?..

26.11.2008, 20:05	#4
Викдон Форумчанин Регистрация: 11.11.2008 Сообщений: 161	что есть сумма цифр от 10 до 5? пример покажи: т.е сложить 5+6+7+8+9+10?

26.11.2008, 20:14	#5
Freia Пользователь Регистрация: 18.11.2008 Сообщений: 26	Да,да,так...

26.11.2008, 20:25	#6
Викдон Форумчанин Регистрация: 11.11.2008 Сообщений: 161	summa:=0; i:=4; repeat i:=i+1; summa:=summa+i; until(i=10);