var x: integer;
begin
write('Введите число: ');
readln(x);
if x mod 2=0 then write('число четное')
else write('число нечетное');
end.
var x, S: longint; t:text;
begin
assign(t,'input.txt');
reset(t);
S:=0;
while not Eof(t) do
begin
read(t,x);
S:=S+x;
end;
close(t);
assign (t,'output.txt');
rewrite(t);
write(t,'Вот сумма числел из файла input.txt: ', S);
close(t);
End.
Программа требует ручного ввода 10 числ
var a: array [1..10] of integer;
i , k: integer;
begin
for i:=1 to 10 do
readln(a[i]);
k:=0;
for i:=1 to 10 do
if a[i] div 10 =0
then k:=k+1;
writeln(k);
end.
672 бита там и пробелы тоже как символ идут
Для початку давайте розберемося в тому, що саме являє собою форматування диска, і чому після нього є реальна можливість відновити якщо не всі, то більшу частину даних. При первинному (або нізькорівневому ) форматуванні відбувається створення файлової таблиці, в яку система записує всі дані, необхідні для роботи. Коли запускається процес форматування диска, таблиця нікуди не дівається, а лише обнуляється. Стара інформація, яка перебувала в ній, не може відповідати розмірам таблиці, тому стає просто невидимою для системи. І якщо на диск не проводився запис нових даних, тоді відновити файли після форматування диска можна.
