Как раскрашивать нам что ресурсов рисовать?? Где фото
1)150000б. 0.15мб
2)3е+6 байт
3)5.5 гб. 5500000кб
Я думаю что г или а. Как-то так даальше смотри сама.
Ответ:
program Test;
const
L = ['а'..'я', 'А'..'Я'];
N = ['0'..'9'];
var
f: Text;
s: AnsiString;
cl, cn, i: Integer;
begin
Assign (f, 'text.txt'); // здесь название файла
Reset (f);
cl := 0;
cn := 0;
while not Eof (f) do begin
ReadLn (f, s);
for i := 1 to Length (s) do begin
if s [i] in L then
Inc (cl)
else if s [i] in N then
Inc (cn);
end;
end;
Close (f);
WriteLn ('Русских букв: ', cl);
WriteLn ('Цифр: ', cn);
ReadLn;
end.
Объяснение:
текстовый файл должен находиться в папке с программой, иначе укажите полный путь к нему. Кодировка файла ANSI - кириллица 1251 или OEM -русский 866.
1)Начало
2)Сравни первое и второе числа;если первое меньше второго,то поменяй их местами.
3)Сравни второе и третьего числа;если второе меньше третьего ,то поменяй их местами.
4)Если теперь три числа расположены в порядке убывания ,то исполни пункт 5) этого алгоритма; иначе вернись. к пункту 2).
<span>5)Конец</span>