Beginvar b:boolean; s:real;a:=0;writeln('slovo');readln(z);while not (eof(z)) do beginif z=d then a:=a+1;writeln(a);end;end.
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var s:=ReadlnString('>');
s:=s.Replace(' ',''); Writeln(s);
end.
<u><em>Тестовое решение:</em></u>
> А роза упала на лапу Азора
АрозаупаланалапуАзора
Таблица кодировки символов устанавливает соответствие между: символами, их десятичными номерами и двоичными кодами.
#include <iostream>
#include <fstream>
using namespace std;
int main()
{
fstream file_in("input.txt", ios::in);
fstream file_out("output.txt", ios::out);
int n, max = -1001;
file_in >> n;
while (n != 0)
{
if (n > max) max = n;
file_in >> n;
}
if (max != -1001) file_out << max;
file_in.close();
file_out.close();
return 0;
}
600мб=600 000кб
600 000 КБ:500=120 фотографий всего
120×6=720с понадобиться
Ответ:720секунд