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