1) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=0;
for k:=1 to 11 do
s:=s+k;
write(s);
end.
2) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
s := 0;
for n:=3 to 7 do
s := s + n;
write(s)
end.

Это же готовая программа. Скачай себе http://joxi.ru/xAe0KPospJGpR2 и копи паст в неё и запускай.

чувак, тут не так все просто,я тоже могу в паскаль это вбить, получится ответ. надо написать почему так происходит

У вас после каждой итерации цикла s не сбрасывается, будет прибавление к уже существуещему числу

Мы объявили переменную s, далее начинается цикл, где k++ с каждой новой итерации в цикле, соответственно мы считаем, что s=s+k в первом случае это будет 0+1, во втором случае 1+2, в третьем 3+3 и так далее.

В первом случае будет: 66В втором случае будет: 25

1) если введённое число попадёт в промежуток от 1 до 11, то программа выполнит сложение 0+ введённое число и выведет результат. Например, Вводим 3, 0+3=3, программа выведет 32) аналогично