Найти сумму натуральных двузначных чисел, каждое из которых при делении на три дает в остатке 2., Небольшая помощь с Паскалем (1 курс) Опции

[clack]

Здравствуйте.Подскажите,пожалуйста,как правильно решить эту задачу?А то все никак не получается.Заранее большое спасибо!

"Найти сумму натуральных двузначных чисел, каждое из которых при делении на три дает в остатке 2."

Вот приблизительно похожая задача.Я не знаю,как здесь условие вписать.
var a,b:integer;
begin
b:=0;
for a:=10 to 99 do
begin
if (a mod 2<>0) and (a mod 3<>0) then
begin
inc(b);
end;
end;
writeln ('kol:',b);
end.

[Anonimys]

Если я не ошибаюсь, то вот:

var a,b:integer;

begin
b:=0;
for a:=10 to 99 do
 if (a mod 3 = 2) then
  inc(b,a);
writeln ('kol:',b);
readln;
end.

Сообщение отредактировано: Anonimys - 3.05.2012 20:12

[Федосеев Павел]

Или по формуле суммы арифметической прогрессии с первым членом 11 и шагом 3: 11, 14, ..., 98.
n:=((98-11) div 3)+1; S:=(11+98)*n div 2;
Применяемый алгоритм сильно зависит от названия изучаемой темы.

[Anonimys]

Немного выпендрежа не по теме, но от балды придумал алгоритм определения нечетности числа. Воть:

uses crt;
var a,a1,a2,b:integer;

begin
clrscr;
write('Enter number: ');
read(a);
a1:= a div 2;
a2:= round(a - round(a1));
b:= a2 - a1;
if b = 0 then
 write('Even number')
  else
 write('Odd number');
delay(1000);
end.

[clack]

Большое спасибо!)