Здравствуйте.Подскажите,пожалуйста,как правильно решить эту задачу?А то все никак не получается.Заранее большое спасибо!
"Найти сумму натуральных двузначных чисел, каждое из которых при делении на три дает в остатке 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.
Если я не ошибаюсь, то вот:
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.
Или по формуле суммы арифметической прогрессии с первым членом 11 и шагом 3: 11, 14, ..., 98.
n:=((98-11) div 3)+1; S:=(11+98)*n div 2;
Применяемый алгоритм сильно зависит от названия изучаемой темы.
Немного выпендрежа не по теме, но от балды придумал алгоритм определения нечетности числа. Воть:
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.
Большое спасибо!)