Запись оставлена ghf 26.02.2017 в 19:35
запустить | скачать | новая запись
- program hg;
- var s,k:integer;
- begin
- s:=100;
- for k:= 3 to 6 do
- s:= s + 5;
- writeln(s);
- end.
Отправка исправлений и поправок. (cоздать новую запись)
После отправки поправок вы сможете посмотреть различия между старой и новой записью.