Решить для 8 класса по информатике запишите, что выполняет данная программа: program v1; var k, i : integer; begin k: =0; for i: =1 to 100 do if i mod 3=0 then k: =k+1; writeln(k); end.

Объявляются переменные целого типа i и k. Начальное значение k=0. Выполнять цикл от 1 до 100 при таких условиях, что остаток от деления на 3 числа i будет равен 0, то тогда мы к k прибавим 1. После этого мы выводим на экран количество этих цифр, которые делятся без остатка на 3.