Помогите с задачей по паскалю

Дмитрий45 · 14.11.2010, 13:15

Определить сумму цифр трёх значного числа . Вывести его на печать , если сумма больше или равна 11 , а в противном случае вывести сообщение " сумма цифр меньше 11"

shrek=) · 14.11.2010, 13:39

Ну как то так.

Код:

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.

Если не прав поправьте.

Дмитрий45 · 14.11.2010, 14:18

s=>11 здесь ошибка

Vladimir_S · 14.11.2010, 14:27

Цитата:

Сообщение от Дмитрий45

s=>11 здесь ошибка

Которую исправить Вы, разумеется, не в силах.
Ладно. Переставьте местами знаки ">" и "=", так, чтобы получилось s>=11.

Дмитрий45 · 14.11.2010, 14:43

а блок схему не поможете нарисовать

shrek=) · 14.11.2010, 15:15

вот как-то так:

Дмитрий45 · 14.11.2010, 16:50

С такой задачей не поможете . Дано натуральное число X . Вычислить (x-2)(x-4)....(x-64)/(x-1)(x-3)....(x-63). Если можно и блок схему

shrek=) · 14.11.2010, 17:07

Помочь то можно, но здесь помогают, а не делают работу за вас тем более задачи у вас не такие уж сложные, Вы выкладывайте свои наработки, а вам их подредактируют если что не так.

14.11.2010, 13:15	#1 (permalink)
Дмитрий45 Member Регистрация: 26.01.2010 Сообщений: 460 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 30	Помогите с задачей по паскалю Определить сумму цифр трёх значного числа . Вывести его на печать , если сумма больше или равна 11 , а в противном случае вывести сообщение " сумма цифр меньше 11"

14.11.2010, 13:39	#2 (permalink)
shrek=) Студент БГПУ Регистрация: 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, 15:15	#6 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	вот как-то так: Миниатюры

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

14.11.2010, 14:18	#3 (permalink)
Дмитрий45 Member Регистрация: 26.01.2010 Сообщений: 460 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 30	s=>11 здесь ошибка

14.11.2010, 14:43	#5 (permalink)
Дмитрий45 Member Регистрация: 26.01.2010 Сообщений: 460 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 30	а блок схему не поможете нарисовать

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

14.11.2010, 16:50	#7 (permalink)
Дмитрий45 Member Регистрация: 26.01.2010 Сообщений: 460 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 30	С такой задачей не поможете . Дано натуральное число X . Вычислить (x-2)(x-4)....(x-64)/(x-1)(x-3)....(x-63). Если можно и блок схему

14.11.2010, 17:07	#8 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	Помочь то можно, но здесь помогают, а не делают работу за вас тем более задачи у вас не такие уж сложные, Вы выкладывайте свои наработки, а вам их подредактируют если что не так.