архивация — подготовительная обработка (сбор, классификация, каталогизация, сжатие (для цифровой информации)) данных для хранения или передачи их по сети
это возможность служит для облегчения работы с файлами
Спасибо
Ответ дал: Гость
for a : = 1 to 20 do
begin
writeln(a,"^2 = ", a*a);
end
или
a: = 1;
repeat
writeln(a,"^2 = ", a*a);
a : = a + 1;
until a > 20;
Ответ дал: Гость
s: = str(number);
for : = 1 to length(s) div 2 do
if s[i] < > s[length(s) - i + 1] then writeln("не палиндром")ж
Популярные вопросы