Найти сумму всех двузначных чисел, которые делятся на 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

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

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

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

	Найти сумму всех двузначных чисел, которые делятся на 3 и не делятся на 4 19.09.2010, 18:05. Показов 12776. Ответов 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