PDA

Просмотр полной версии : Помогите решить задачку на pascal



Murder
02.02.2008, 23:29
вот условие задачи :

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

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

MOTOCoder
03.02.2008, 01:44
Вообще вариантов остатка 2 : единица и двойка. Единиц будет 34, двоек 33. Какой нужен?
Проверял так:

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.

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

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

насколько я понял задачу дали тут мне правильное решение http://www.kharkovforum.com/showthread.php?p=2486406#post2486406

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