|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.11.2008, 13:09 | #1 |
Пользователь
Регистрация: 18.11.2008
Сообщений: 26
|
Помогите кто чем может,2 задачи на паскале;(
1)Подсчитать сумму цифр от 10 до 5,с помощью оператора с постусловием;
2)Написать программу печати четных чисел,начиная от 0 до 39. ..может поможите кто-нибудь? |
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 |
Пользователь
Регистрация: 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 |
Пользователь
Регистрация: 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); |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите, кто чем может. (Паскаль) | KORT | Помощь студентам | 8 | 03.11.2007 13:26 |
Файлы rtl помогите кто чем может! | Muscat | БД в Delphi | 5 | 18.02.2007 03:36 |