<u>Поскольку протестировать программу без файла нельзя, вот код, создающий нужный файл.</u>
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
type
fint=file of integer;
begin
var f:fint;
Assign(f,'integers.bin'); Rewrite(f);
SeqRandom(20,-50,50).foreach(t->Write(f,t));
f.Close
end.
<u>А теперь, собственно, решение задачи</u>
type
fint=file of integer;
begin
var f:fint;
Assign(f,'integers.bin'); Reset(f);
var k:=0;
var b:integer;
while not Eof(f) do begin
Read(f,b);
if b.IsEven then k+=1
end;
f.Close;
Writeln('Кол-во четных компонент файла равно ',k)
end.
<u>И последнее - программа распечатки значений компонент файла. Для контроля.</u>
type
fint=file of integer;
begin
var f:fint;
Assign(f,'integers.bin'); Reset(f);
var b:integer;
while not Eof(f) do begin Read(f,b); Print(b) end;
Writeln;
f.Close
end.
Юникод - 15 символов
ASCII - 15 символов, 120 бит
Ответ:
Исходя из чего нужно выбрать верный ответ?
Правильно: 543(6)=5*6(в квадрате)+4*6+3= 180+24+3=207,
56(7)=5*7+6=41
неправильно:91(3), так как нельзя использовать в записи 9. (есть только 0, 1, 2),
23(2), так как нельзя использовать 2. (есть только 0, 1).
Від програми в якому він створюється, редагується, зберігається.