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

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

{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

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

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

@fanmilan 0 / 0 / 0 Регистрация: 19.09.2010 Сообщений: 5
		1
	Найти сумму всех двузначных чисел, которые делятся на 3 и не делятся на 4 19.09.2010, 18:05. Показов 11552. Ответов 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 [ТС]	3
	Eguar ОГРОМНОЕ СПАСИБО!!!! 0

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

@Puporev Почетный модератор 64277 / 47576 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	19.09.2010, 18:42	6
	Сообщение от Eguar ну вот ко всему придраться надо Так никто и не придирается, просто у вас неправильно написано. Проверьте оба варианта и сравните результат. Просто не кратные 4 это ia a mod 4<>0, а то что вы написали даже и не соображу сразу, просто выводит числа кратные 15 1

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

Опции темы