14.11.2010, 13:15 | #1 (permalink) |
Member
Регистрация: 26.01.2010
Сообщений: 460
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 30
|
Помогите с задачей по паскалю
|
14.11.2010, 13:15 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Иногда самым эффективным в решении проблемы является прочтение схожих тем Помогите пожалуйста с задачей по C++ Помогите с задачей на php-код Пожалуйста, помогите с задачей Помогите с графической задачей Помогите с задачей на рекурсию. |
14.11.2010, 13:39 | #2 (permalink) |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
Ну как то так.
Код:
var i,s,x:integer; begin writeln ('введите число'); readln (x); s:=0; while (x<>0) do begin s:=s+(x mod 10); x:=x div 10; end; if s>=11 then writeln ('сумма равна',s) else writeln ('сумма меньше 11'); readln end. Последний раз редактировалось shrek=); 14.11.2010 в 13:46 |
14.11.2010, 14:43 | #5 (permalink) |
Member
Регистрация: 26.01.2010
Сообщений: 460
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 30
|
а блок схему не поможете нарисовать
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
14.11.2010, 17:07 | #8 (permalink) |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
Помочь то можно, но здесь помогают, а не делают работу за вас тем более задачи у вас не такие уж сложные, Вы выкладывайте свои наработки, а вам их подредактируют если что не так.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|