//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqInteger(8).Where(x->(x mod 3=0) and (x mod 10=4)).Count());
end.
Из условия следует, что на одной странице
символа, а раз так, в тексте
символа. Следовательно, текст будет весить
бит, или 56320 байт, или 55 КиБ:)
#include <iostream>
#include <windows.h>
using namespace std;
int main()
{
int N;
int* arr;
cin>>N; //вводим размер массива
arr = new int[N];
for(int i=0;i<N;i++) cin>>arr[i]; //вводим сам массив
int NumOfFives = 0;
for(int i=0;i<N;i++)
{
if(arr[i]==5) NumOfFives++;
}
cout<<NumOfFives<<endl; //выводим сколько пятёрок
Sleep(5000); //ждём 5 секунд.
delete arr;
return 0;
}
/*
P.S Так на будующее: не алгоритм, а программу; C++ не программа, а язык; за такие задачи нужно побольше пунктов давать(мало кто знает C++(тут), а также задачи тут бывают полехче (куда уж легче? но бывают!) а пунктов ты даёшь минимум).
*/
Вот тебе пример)
while not EOF(FTemp) do
begin
ReadLn(FTemp, S);
WriteLn(FT, S)
end;
{ Закрытие входного файла }
Close(FT);
{ Усечение размера временного файла до 0 }
Rewrite(FTemp);
{ Закрытие временного файла }
Close(FTemp)
end;