procedure p(x:integer; var st:string);
type
name = array[0..9] of String[50];
const
s1 : name = (' ноль ',' один ',' два ',' три ',' четыре ',' пять ',' шесть ',' семь ',' восемь ',' девять ');
s2: name = (' ',' десять ',' двадцать ',' тридцать ',' сорок ',' пятьдесят ',' шестьдесят ',' семьдесят ',' восемьдесят ',' девяносто ');
s3: name = (' ',' сто ',' двести ',' триста ',' четыреста ',' пятьсот ',' шестьсот ',' семьсот ',' восемьсот ',' девятьсот ');
s4 : name = (' ',' одиннадцать ',' двенадцать ',' тринадцать ',' четырнадцать ',' пятнадцать ',' шестнадцать ',' семнадцать ',' восемнадцать ',' девятнадцать ');
var
s,d,e : Integer;
begin
s:= x div 100; x:=x mod 100;
st:=s3[s];
d:= x div 10; e:=x mod 10;
if (d=1) and (e<>0) then st:=st+s4[e]
else st:=st+s2[d]+s1[e];
end;
var x:integer; st:string;
Begin
Write('Введите число [0..100] :');
Readln(x);
p(x,st);
writeln(st);
End.
Пример:
Введите число [0..100] : 12
дведнацать
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Будь-ласка ! до поданого у виглядi формули алгоритму почали складати блок-схему але не встигли завершити -5): 2)-5): 2)-5): 2) 1) закiнчи складання блок схеми даного алгоритму 2)виконай алгоритм якщо х=35 3)напиши назву алгоритмiчноi структури використаноi для складання цього алгоритму
Реестр и перегруженный диск
Вторая причина торможения компьютера - это конечно же замусоренный реестр и перегруженный системный диск. Если у Вас в реестре Windows много различных записей из-за того, что Вы постоянно устанавливаете и удаляете различные программы, то это также может стать причиной торможения компьютера. Нужно знать, как правильно почистить компьютер, чтобы он не тормозил и не глючил. И начнём мы с реестра.
Чтобы почистить реестр рекомендую использовать простую программу CCleaner. Скачайте, установите и запустите её.
Перейдите в раздел Реестр, убедитесь что здесь стоят все галочки, и нажмите Поиск проблем.
Поиск ошибок в реестре Виндовс
Программа найдёт весь ненужный хлам в реестре и предложит его Очистить. Нажимаем кнопку Исправить и исправляем.
Исправление ошибок в реестре
Повторяем эту процедуру, до тех пор, пока в реестре не будет найдено минимальное количество проблем.
Также нам нужно почистить диск С. Заходим в раздел Компьютер, нажимаем правой кнопкой мыши по системному разделу и выбираем пункт Свойства.
Свойства системного диска
Здесь находим кнопку Очистка диска, и ждём пока программа проанализирует данные и предложит удалить ненужный хлам.
Очистка системного диска
Поиск ненужных файлов
После анализа нам нужно поставить галочки напротив всех пунктов и нажать Ок и Удалить файлы.
Удаление ненужных файлов
Удалить файлы в Очистке диска
А ещё не забудьте очистить папки TEMP. Это временные папки, файлы в которых вообще не нужны.
Заходим в раздел Компьютер - Диск (C:) - Папка Windows - Папка TEMP. То, что внутри, это ненужные файлы, выделяем и удаляем.
Папка TEMP
Также нужно очистить вторую папку ТЕМП. Для этого нажимаем на клавиатуре Win+R, вводим команду %TEMP% и нажимаем Ок.
Команда Выполнить
У нас открывается вторая папка TEMP, эти файлы тоже не нужны. Выделяем их все и Удаляем.
Вторая папка TEMP
Итак второй мы тоже разобрали. Обязательно чистим реестр от хлама и диск от ненужного мусора. Это очень важно!