Найти сумму всех двузначных чисел, которые делятся на 3 и не делятся на 4

@fanmilan · Регистрация: 19.09.2010

Студворк — интернет-сервис помощи студентам

Помогите решить 3 задачи на циклы на паскале, а то забыл их совсем
1 Найти 10 произвольных целых чисел (значение чисел обозначить N)
2 Вычислить: F=x*(x+1)*x+2)*...*(x+N)
3 Найти сумму всех двузначных чисел, которые деляться на 3 и не деляться на 4

@Jaguar · 19.09.2010, 18:19

3

Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
var i,ch,n,s:Integer;
begin
s:=0;
for i:=10 to 99 do begin
if (i mod 3=0)AND(i mod not 4=0) then s:=s+i;
end;
 Write('Числа ' ,s);
 
end.

Добавлено через 5 минут
2

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
{2 Вычислить: F=x*(x+1)*x+2)*...*(x+N)}
uses crt;
const x=5;
var f,n,i:Integer;
begin
Writeln('Скок чисел будет');
readln(n);
for i:=1 to N do begin
F:=x*(x+i);
end;
Writeln(F);
end.

Добавлено через 2 минуты
1

Pascal
1
2
3
4
5
6
7
8
uses crt;
var i,n:Integer;
begin
Writeln('Скок чисел будет');
readln(n);
for i:=1 to N do
Write(i:3);
end.

@fanmilan · 19.09.2010, 18:22 **[ТС]**

Eguar ОГРОМНОЕ СПАСИБО!!!!

@Puporev · 19.09.2010, 18:27

Pascal
1
if (i mod 3=0)AND(i mod 4<>0) then s:=s+i;

@Jaguar · 19.09.2010, 18:30

ну вот ко всему придраться надо

@Puporev · 19.09.2010, 18:42

Сообщение от Eguar

ну вот ко всему придраться надо

Так никто и не придирается, просто у вас неправильно написано. Проверьте оба варианта и сравните результат. Просто не кратные 4 это
ia a mod 4<>0, а то что вы написали даже и не соображу сразу, просто выводит числа кратные 15

@Jaguar · 19.09.2010, 18:43

ну ладно,не внимательно прочитал

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

@fanmilan 0 / 0 / 0 Регистрация: 19.09.2010 Сообщений: 5

	Найти сумму всех двузначных чисел, которые делятся на 3 и не делятся на 4 19.09.2010, 18:05. Показов 12815. Ответов 6 Метки нет (Все метки) Помогите решить 3 задачи на циклы на паскале, а то забыл их совсем 1 Найти 10 произвольных целых чисел (значение чисел обозначить N) 2 Вычислить: F=x(x+1)x+2)...(x+N) 3 Найти сумму всех двузначных чисел, которые деляться на 3 и не деляться на 4 0

@fanmilan 0 / 0 / 0 Регистрация: 19.09.2010 Сообщений: 5
	19.09.2010, 18:22 [ТС]
	Eguar ОГРОМНОЕ СПАСИБО!!!! 0

@Jaguar 393 / 279 / 38 Регистрация: 06.08.2010 Сообщений: 833
	19.09.2010, 18:30
	ну вот ко всему придраться надо 1

@Jaguar 393 / 279 / 38 Регистрация: 06.08.2010 Сообщений: 833
	19.09.2010, 18:43
	ну ладно,не внимательно прочитал 1