Чтобы узнать значение переменной i после выполнения программы, нужно 1000/3, так как цикл будет выполняться, пока i < 1000.
1000/3 ~ 333.
Проверяем: 333 * 3 = 999.
При этом значении цикл повторяется, так как 999 < 1000.
Чтобы завершить цикл, сделаем еще одну итерацию.
I = 1002.
1002 > 1000, соответственно цикл прекращается и на вывод идет переменная i.
Ответ: 1002.
Program z1;
var x1,x2,y1,y2:integer;
begin
read(x1,x2,y1,y2);
writeln(sqrt(sqr(x2-x1)+sqr(y2-y1)));
end.
program z2;
var ch:integer;
begin
read(ch);
writeln(ch*ch);
end.
program z3;
var k1,k2:integer;
begin
read(k1,k2);
writeln(sqrt(sqr(k1)+sqr(k2)));
writeln((k1*k2)/2);
end.
program z4;
var ch1,ch2,ch3:integer;
begin
read(ch1,ch2,ch3);
writeln(abs(ch1)+abs(ch2)+abs(ch3)));
end.<span>
</span>
Плюсы: узнаешь много нового для себя, общаешься с друзьями, интересно проводишь время.
Минусы: очень часто: портится осанка, не делается дз, ухудшается зрение из-за постоянного сидения за компьютером, а вообще, лучше гулять на улице и с друзьями:)