Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
помогите пожалуйста решить задачки на языке паскаль
2) Даны натуральные числа a и b. На интервале от a до b найти все числа, у которых сумма цифр кратна заданному числу k (k вводится с клавиатуры). Если таких чисел нет, то выдать об этом сообщение. Задать процедуру определения суммы цифр числа.

5) Дана последовательность символов (строка). Словом текста является последовательность цифр и букв алфавита (латинского). Слова отделены одним и более пробелами. Найти и вывести все слова, в которых все символы являются цифрами.
1 | Автор: kristinaD | 2012-12-09, 19:47   |  Репутация: [ + 0 ]
2
Code
var a,b, k, i, sum,y1: integer;  
procedure proverka (x,k1:integer; var y:integer);
var str1:string; i,sum, chislo, error:integer;
begin
y:=0;
sum:=0;
str(x,str1);
for i:=1 to length(str1) do
begin
val (str1[i], chislo, error);
sum:=sum+chislo;
end;
if sum=k1 then y:=1;
end;
begin
readln(a,b,k);
for i:=a to b do
begin
proverka (i,k,y1);
if y1=1 then write (' ',i);
end;
end.  
2 | Автор: HWOARANG | 2012-12-09, 23:45   |  Репутация: [ + 20 ]
спасибо) а 5-ю помогите)
3 | Автор: kristinaD | 2012-12-12, 16:29   |  Репутация: [ + 0 ]
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:).

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2012-12-12, 19:55   |  Репутация: [ + 211 ]
ок)
с пятой задачкой помогите пож)
5 | Автор: kristinaD | 2012-12-12, 19:58   |  Репутация: [ + 0 ]
Помогите решить задачу по массивам:
Условие: Вывести на экран массив, каждый элемент какого есть кубом соответствующего элемента заданного массива.
6 | Автор: mihalych814 | 2012-12-16, 23:11   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: