Конечные автоматы , язык паскаль в паскаль коментарии ограничены символами {}, при этом символ {находящаяся внутри скобки, не начинает комментарий. напечатайте тест программ без коментариев. пример: a{bc}d{{ef}g}h ответ : a, d, h
Ответы
//c циклом for
var s,i:integer;
begin
for i:=100 to 999 do
if i mod 77 = 0 then s:=s+i;
writeln('Сумма трехзначных кратных 77: ',s);
end.
Тестовое решение:
Сумма трехзначных кратных 77: 5929
// с циклом while
var s,i:integer;
begin
i:=100;
while i<=999 do begin
if i mod 77 = 0 then s:=s+i;
i:=i+1;
end;
writeln('Сумма трехзначных кратных 77: ',s);
end.
Дефрагментация диска.
Жёсткий диск компьютера содержит записанные файлы, деля их на фрагменты, и храня в отдельных кластерах, иногда располагающихся далеко друг от друга.
Фрагментация — это разделение файла и разбрасывание его элементов по разным кластерам. Поэтому когда файлов становится много, компьютер начинает работать медленно. Для решения этой проблемы существуют программы для дефрагментации диска. Дефрагментация — это процесс собирания фрагментов файла в соседних кластерах. Дефрагментацию жёстких дисков можно выполнить в операционной системе Windows. Для этого нужно открыть меню «свойства» жёсткого диска и на вкладке «Сервис» нажать кнопку «Выполнить дефрагментацию». Сначала программа выполнит анализ дискового пространство. Дефрагментация может длиться довольно долго.
Также дефрагментацию можно сделать в бесплатной программе Auslogics Disk Defrag Free
Архивация файлов.
Архивацию файлов можно выполнить в программах WinRAR и 7ZIP.
Эти программы нужны, чтобы распаковать архивированные файлы и сжать большие по объёму. А также множество больших файлов превратить в один небольшой файл — архив.
Эти программы нужны, чтобы сэкономить дисковое пространство. Большие и редкоиспользуемые файлы можно сжать и хранить в виде архива.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
program sum;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a,b:integer;
begin
readln(a,b);
writeln(a+b);
readln;
end;
Программа суммы с комментариями:
program sum;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a,b:integer;{указывание переменных}
begin
readln(a,b); {считывание значений с клавиатуры}
writeln(a+b);{вывод суммы двух чисел}
readln;{задержка результата на экране}
end;