Задание по информатике

[Trollolololo]

program z2;
uses crt;
var i,k,sum : integer;
begin
read(n);
sum:=0;
for i:=1 to n do inc(k) ;
writeln('sum = ',sum);
end.

Добавлено через 00:15 мин.
это для второй

Добавлено через 04:42 мин.
program z1;
uses crt;
var a,b,c:integer;
begin
read(a,b,c);
for i:= a to length do
inc(k);
writeln('k = ',k);
end.

Добавлено через 04:54 мин.
эт первая

[Волк_сТр]

Сейчас столько всего на просторах интернета, столько решебников... Ученики в край обленились уже. В наше время не было такого....

[Ned.]

МММ, а зачем мне решебники, если у нас нет учебников ? :D:
А так в интернете чет не то ищет

[Amenhotep]

ка ко та ко.

[Trollolololo]

тебе эти задачи нужны? или другое?

[Amenhotep]

признайся, что ты - лошара.

[Ned.]

В информатике - лох :D:

Добавлено через 05:01 мин.
Сам, наверное, не*** не знаешь

[Amenhotep]

*Добавлено через 05:01 мин.*
 Сам, наверное, не*** не знаешь :ение.klass 

знаю. Пытаюсь забыть по жизни. Вообще не интересно всякое такое движение. НГ скоро. :D:

[Волк_сТр]

Эт правильно. мандарины, накрытый стол, салаты, морда в оливье и все такое :D:

[Психолог]

хахахахаххахахах