Var f:file of char; C:char; k,s:integer; Begin Assign(f,'file.txt'); Reset(f); k:=0; s:=1; Write('Найденные числа:'); Repeat Read(f,C); if ('0'<=C)and(C<='9') then Begin k:=k+1; Write(' '); While ('0'<=C)and(C<='9')and Not Eof(f) do Begin Write(C); Read(f,C); if C=#13 then s:=s+1; End; End; Until Eof(f); Close(f); WriteLn; WriteLn('Их количество: ',k); WriteLn('Количество строк в файле: ',s); End.
Результат работы программы:
Найденные числа: 1 2 3 7 8 9 11 12 3 2 1 8 1 2 3 4 Их количество: 16 Количество строк в файле: 5
Чтобы программа работала данный файл должен находиться в одной папке с программой:
Интернет - бесценное хранилище человеческого опыта и полезной информации. Любой желающий может использовать его содержимое в своих целях.
Интернет - неограниченное общение, включающее в себя переписки, голосовое общение, видеосвязь. В социальных сетях можно найти своих одноклассников, однокурсников, сослуживцев, коллег.
Минусы:
В интернете имеются сайты-ловушки, сайты без контента с одной только рекламой и заражённые сайты.
В некоторых сегментах интернета есть цензура. Интернет часто отнимает больше времени, чем нужно там проводить (Опционально).
162
2
//PascalABC.NET 3.1 сборка 1200
begin
var k := 0;
for var i := 132 to 188 do
begin
var n := i;
while n mod 2 = 0 do
n := n div 2;
while n mod 3 = 0 do
n := n div 3;
if n = 1 then begin
k += 1;
writeln(i);
end;
end;
writeln(k);
end.
самокопия