Программисты, к вам вопрос. Напишите программу подсчёта: сколько целых чисел от 100 до 200 делиться на 3 без остатка.

Да, пожалуйста !

Program Program1;
var k,i:integer;
Begin for k:=100 to 200 do
if k mod 3=0 then i:=i+1;
writeln(i);
end.

Удачи !

Сегодня всей школоте задают задачки в одну строку? :

writeln((200-100) div 3);

везет им) ) а у меня курсовая делфи)