|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.04.2008, 12:18 | #1 |
Пользователь
Регистрация: 26.12.2007
Сообщений: 11
|
Паскаль. найти все числа кратные трем и посчитать их количество
помогите пожалуйста ,я сижу на зачете.помогите решить задачу.
в массиве из 10 действительных чисел найти все числа кратные трем и посчитать их количество |
02.04.2008, 12:32 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Код:
I'm learning to live...
|
02.04.2008, 12:36 | #3 |
Пользователь
Регистрация: 26.12.2007
Сообщений: 11
|
напиши пожалуйста всю задачу
|
02.04.2008, 13:09 | #4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
А подумать?
Собсно это и есть вся задача, a - тут массив i - счетчик
I'm learning to live...
|
02.04.2008, 14:23 | #5 |
Форумчанин
Регистрация: 30.03.2008
Сообщений: 392
|
var a:array [1..10] of real;
i,k:integer; begin for i:=1 to 10 do begin write('введите ',i,' элемент массива'); readln(a[i]); end; k:=0; for i:=1 to 10 do if trunc(a[i]) mod 3=0 then k:=k+1 write(k); readln; end. все
Программирование - это великое искусство... Такое же как например и живопись!
|
02.04.2008, 14:49 | #6 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Действительные числа это и целые и дробные. Нужно набрать массив примерно такой [2.35, 18, 0.12, 24, 14, -1.23, 45, 2.56, -1.56, 81];
Потом в цикле k:=0; for i:=1 to 10 do if a[i] mod 3=0 then k:=k+1; write(k); |
02.04.2008, 16:37 | #7 |
Новичок
Джуниор
Регистрация: 18.01.2008
Сообщений: 1,720
|
Абсолютно не понял задачу... Действительные числа, они же вещественные, это все некомплексные. Как определить, кратно ли число пи трём - не представляю. Деление по модулю для "нецелых" чисел не определено. Может быть, имеется в виду, что надо сначала выбрать из массива "целые"?....
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Посчитать количество записей в БД ACCESS | Dux | БД в Delphi | 22 | 31.03.2015 20:36 |
Найти числа,которые читаются слева-направо и справа-налево одинаково(например, 1001). Паскаль | NikLik | Помощь студентам | 8 | 22.11.2007 23:00 |
Фрактал. Посчитать количество треугольников. | Marsik | Помощь студентам | 2 | 22.11.2007 08:19 |
Найти количество различных цифр данного натурального числа. | stalker | Паскаль, Turbo Pascal, PascalABC.NET | 10 | 22.05.2007 17:45 |
Кратные числа | ара | Помощь студентам | 1 | 19.04.2007 19:34 |