|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.12.2006, 17:34 | #1 |
Регистрация: 22.12.2006
Сообщений: 3
|
новичку нужна помощь с Паскалем
Как в заданой последовательности простых чисел найти количество и суму чисел кратных десяти?
Понимаю что задачка вроде бы простая но Паскаль изучаю самостоятельно , а помощь нашёл только в вашем лице.Заранее благодарю за помощь и зивиняюсь за беспокойство. |
22.12.2006, 18:20 | #2 | |
Форумчанин
Регистрация: 20.12.2006
Сообщений: 135
|
То что нужно было?
Цитата:
writeln('Hello Dude!!!');
Последний раз редактировалось -=DeS=-; 22.12.2006 в 18:22. |
|
22.12.2006, 21:37 | #3 |
Регистрация: 22.12.2006
Сообщений: 3
|
пости то что мне нужно но есть одно но: эту задачу ее надо сделать через масив а вот как раз это у меня и не получаеться туго сволочи даются
|
22.12.2006, 21:51 | #4 |
Андрей
Форумчанин
Регистрация: 21.11.2006
Сообщений: 457
|
Если не ошибаюсь код, который я приводил ранее был реализован с помощью массивов... Ладно, вот:
Код:
ICQ: 5311314
[SIGPIC][/SIGPIC] |
23.12.2006, 16:19 | #5 |
Регистрация: 22.12.2006
Сообщений: 3
|
Как сюда вставить счётчик для подсчета количества цифр, кратных десяти?
var i,s,k,b:integer;
a:array[1..n] of integer; begin writeln ('введите n чисел'); for i:=1 to n do write('a[',i,']='); readln(a[i]); end; s:=0; for i:=1 to n do if A[i] mod 10 = 0 then S:=S+a[i]; writeln('s=',s); end. Последний раз редактировалось SuperVisor; 23.12.2006 в 17:28. Причина: Борьба за грамматику |
23.12.2006, 17:52 | #6 |
Павел Сергеевич
Форумчанин
Регистрация: 05.11.2006
Сообщений: 665
|
Код:
Познавая других, мы познаем себя.
С'est la vie... |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помощь новичку - Ассемблер | Cat1986 | Помощь студентам | 3 | 08.07.2008 09:16 |
одномерные массивы. Новичку в помощь | tatti | Помощь студентам | 3 | 10.04.2008 12:29 |
и снова нужна помощь с паскалем | getherefast | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 03.03.2008 18:24 |
нужна помошь новичку. не могу получить вывод в label. | Cor88 | Общие вопросы Delphi | 12 | 30.09.2007 20:19 |