- Поисковые системы
- Практика оптимизации
- Трафик для сайтов
- Монетизация сайтов
- Сайтостроение
- Социальный Маркетинг
- Общение профессионалов
- Биржа и продажа
- Финансовые объявления
- Работа на постоянной основе
- Сайты - покупка, продажа
- Соцсети: страницы, группы, приложения
- Сайты без доменов
- Трафик, тизерная и баннерная реклама
- Продажа, оценка, регистрация доменов
- Ссылки - обмен, покупка, продажа
- Программы и скрипты
- Размещение статей
- Инфопродукты
- Прочие цифровые товары
- Работа и услуги для вебмастера
- Оптимизация, продвижение и аудит
- Ведение рекламных кампаний
- Услуги в области SMM
- Программирование
- Администрирование серверов и сайтов
- Прокси, ВПН, анонимайзеры, IP
- Платное обучение, вебинары
- Регистрация в каталогах
- Копирайтинг, переводы
- Дизайн
- Usability: консультации и аудит
- Изготовление сайтов
- Наполнение сайтов
- Прочие услуги
- Не про работу
В 2023 году Одноклассники пресекли более 9 млн подозрительных входов в учетные записи
И выявили более 7 млн подозрительных пользователей
Оксана Мамчуева
Как удалить плохие SEO-ссылки и очистить ссылочную массу сайта
Применяем отклонение ссылок
Сервис Rookee
Авторизуйтесь или зарегистрируйтесь, чтобы оставить комментарий
Помогите, пожалуйста, кто знает...
У подруги-финансиста надо это решить на экзамене. Сам попытался с помощью учебника, но конкретного примера не нашел. Сам никогда в Паскаль не сувался.
Задание:
Нужно написать программу на яз. Паскаль.
Дан одномерный целочисленный массив A(N).
Определить сумму эл-ов кратных 13.
Заранее спасибо.
P.s: надо в виде кода это выдать...
Сам никогда в Паскаль не сувался.
Паскаль-непаскаль - какая разница? Если умеешь программировать хоть на одном языке, подвести под нужный синтаксис не составит труда. А алгоритм элементарный здесь.
Данные массива где задаются? В самой программе рандомом или надо вводить с клавиатуры?
Данные массива где задаются? В самой программе рандомом или надо вводить с клавиатуры?
да, ответьте на этот вопрос
uses
SysUtils;
var
x: array[0..11] of integer;
i,sum:integer;
begin
sum:=0; //обнуляем
read(N);//считываем n
for i:=0 to N do begin //считываем массив, сразу же проверяем деление на 13
read(x);
if((xmod 13)=0) then sum:=sum+x;
end;
writeln('Summa:'+inttostr(sum)); //выводим сумму
readln(i);// убрать после отладки, нужно, чтобы задержать экран
end.
комментарии, убрать :)
Alex91 опередил)
Аналогичная по принципу задачка, если найдёте ошибку - мегареспектище вам :)
Найти n! для всех n<(или равно)15 делящихся нацело на 3.
Program Progr_vloj_vi4_prots;
var i,n: byte;
a,del: integer;
BEGIN
Writeln('Факториал какого числа будем искать?');
Writeln('(Введите его и нажмите ENTER)');
Readln(i);
Writeln('Кратно чему??');
Readln(del);
a:=1;
For i:=1 to i do
Begin
If (i mod del)=0
Then
For n:=1 to i do
a:=a*n;
If (i mod del)=0
Then
Writeln('Для n=',i,', n!=', a);
End;
END.
Выполняется. По сути всё должно быть правильно.. Всё проверил несколько раз, а вычислять правильно не хочет.
мда) ловите)
var i,n: byte;
a,del: integer;
BEGIN
Writeln('Факториал какого числа будем искать?');
Writeln('(Введите его и нажмите ENTER)');
Readln(i);
Writeln('Кратно чему??');
Readln(del);
a:=1;
For i:=1 to i do If (i mod del)=0 Then
begin
For n:=1 to i do a:=a*n;
Writeln('Для n=',i,', n!=', a);
a:=1;
end;
END.
Спасибо :)
Разобрался
могу подсказать :)
в необединичивании переменной a ;)
в необединичивании переменной a
Я как только эту программу не вертел.. А всё оказалось так просто :)
Ребят, спасибо) Где что задается не знаю, это весь текст задачи!
Гений добавил 07.12.2008 в 17:01
Alex91, а если дапустим условие не измениться только кратность (например не 13, а 5) то просто в этом коде заменить на 5, остальное без изменений?