Developing.ru

Murder,
тогда условие несколько некрасиво сформулировано.
Я бы вместо "Посчитайте сколько чисел" написал бы "Посчитайте, сколько пар чисел".

Serge_Bliznykov писал(а):MOTOCoder,
А почему не три варианта? Зачем игнорировать числа с остатком равным нулю? 8-))
таким образов в ответе должно быть три числа... если я вообще правильно понял поставленную задачу...

насколько я понял задачу дали тут мне правильное решение http://www.kharkovforum.com/showthread. ... ost2486406

MOTOCoder,

&quot писал(а):Вообще вариантов остатка 2 : единица и двойка.

А почему не три варианта? Зачем игнорировать числа с остатком равным нулю? 8-))
таким образов в ответе должно быть три числа... если я вообще правильно понял поставленную задачу...

Вообще вариантов остатка 2 : единица и двойка. Единиц будет 34, двоек 33. Какой нужен?
Проверял так:
[syntax='delphi']
program mod3;

const
N=100;

var
i:integer;
cnt1,cnt2:integer;

begin
for i:=1 to n do
if i mod 3 <>0 then
begin
if i mod 3=1 then
inc(cnt1) else inc(cnt2);
writeln(i);
end;
writeln(cnt1,' ',cnt2);
readln;
end.
[/syntax]

вот условие задачи :

Посчитайте сколько чисел в первой сотне сравнимы друг с другом по модулю 3 (имеют один и тот же остаток от деления на три) Выведите получение числа на экран

помогите очень буду благодарен