Var i,n,s:integer; begin Write('n='); Readln(n); s:=0; for i:=20 to n do if Odd(i) then s:=s+i; Writeln('Сумма с for = ',s); s:=0; i:=21; while i<=n do begin s:=s+i; i:=i+2 end; Writeln('Сумма с while = ',s) end.
Под блокнотом подразумевается стандартный Windows Notepad. Он прост как дважды два, и таким и задумывался. Предназначен для просмотра и возможно редактирования простых текстовых файлов(не документов, форматирование не изменяется), например .txt, .xml, .html и тд Им можно открыть и посмотреть текстовое представление любого файла, хотя большие файлы он не откроет (зависнет или упадет) и может иметь проблемы с кодировками. Имеет простейшие функции типа поиск, замена, переход. А так же открыть и сохранить файл.
Если часто приходится иметь дело с текстовыми файлами предназначеными в первую очередь для чтенье компьютером типа программных кодов, скриптов и тд, то рекомендуется использовать специализированные блокноты типа Notepad++, Sublime Text, Vim, Akelpad и тд
MSO Word предназначен для создания, просмотра, редактирования текстовых документов (не просто текстовых файлов) предназначеных в первую очередь для просмотра людьми. Потому очень много уделяется внимания форматированию текста, можно добавлять всякие рисунки, таблички и прочее и прочее Можно редактировать и простые текстовые файлы, но это не удобно
Program l;
var
i, n, s: integer;
begin
writeln('Введите n');
readln(n);
for i = 20 to n do begin
if (i mod 2 <> 0) then
s := s + i;
end;
write(s);
end.