var s: real; n,i: integer;
begin
write('Введите число N: ');
readln(n);
if n>5 then begin
s:=0;
for i:=5 to n do s:=s+i;
s:=s/(n-5+1);
writeln(s);
end else writeln('Введите другое число, больше 5');
end.
Специализированная дополнительная ячейка памяти в
составе процессора, которая выполняет функцию кратковременного хранения
числа или команды, называется регистром
Вкус хлеба лишнее, так как всё остальное - это звуки.
Var v:real;
begin
Write('Введите v, v>20,v<200: ');
Readln(v);
while (v<=20)or(v>=220) do
begin
Write('Введите v, v>20,v<200: ');
Readln(v);
end;
writeln('v = ',v);
end.
Пример:
<span>Введите v, v>20,v<200: 15
Введите v, v>20,v<200: 550
Введите v, v>20,v<200: 150
v = 150</span>
<span>РАЗАРХИВИРОВАНИЕ -</span>Процедура, обратная архивированию. Восстановление сжатых файлов из архивного файла.
<span>АРХИВИРОВАНИЕ - Сжатие одного или более файлов с целью экономии памяти и размещение сжатых данных в одном архивном файле. А. выполняется специальной программой - архиватором</span>