Поскольку протестировать программу без файла нельзя, вот код, создающий нужный файл.
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017 // Внимание! Если программа не работает, обновите версию!
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.
А теперь, собственно, решение задачи
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.
И последнее - программа распечатки значений компонент файла. Для контроля.
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.
Не подходит — 1) 2528, так как максимальное число разряда 9, то мы понимаем что максимальное возможное число любой поразрядной суммы трех чисел 27. 2528 если брать 25 и 28, то 28 больше 27 (про другой вариант и говорить не стоит — 2 и 528). А номер 2) как раз подходит, например числа 90, 91, 90 получается 127 (27 — старшие разряды, 1 — младшие, записываем в порядке возрастания). В общем результатом работы "автомата" могут быть все кроме 1) 2528. Ну конечно если я правильно понял условия. То что 2) не правильный в условии или как, с чего ты решил что это так?
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!
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.
А теперь, собственно, решение задачи
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.
И последнее - программа распечатки значений компонент файла. Для контроля.
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.