Нужно составить схему алгоритм Ввести число. Если количество его разрядов меньше пяти, то вывести его на экран, дописав нули перед числом так, чтобы в итоге получилось пять знаков. Если количество разрядов больше пяти, то вывести только первые пять разрядов. Если число пятизначное, то вывести его как есть
const
D = 5;
var
a,b: longint;
n,diff: integer;
begin
write('a = '); readln(a);
b := a;
n := 0;
if b = 0 then n := 1;
while b > 0 do begin
b := b div 10;
n := n + 1;
end;
diff := D-n;
if diff > 0 then begin
while diff > 0 do begin
write('0');
diff := diff - 1;
end;
writeln(a);
end
else begin
if diff < 0 then begin
b := a;
while diff < 0 do begin
b := b div 10;
diff := diff + 1;
end;
writeln(b);
end
else
writeln(a);
end;
readln;
end.
//Программа в файле внизу
//Пример выполнения программы
Привет ! Если Вы хотите ознакомиться с моими возможностями : введите "Команды". На данный момент, выводимый мной текст может показываться не совсем коректно, но надеюсь, что в скором времени это исправиться.
Команды
Вот , что я могу на данный момент. 1) Привет. 2)Как тебя зовут? 3) Кто тебя создал? 4) Сколько тебе лет? 5)Можешь ли ты чувствовать? 6)Ты хочешь захватить мир? 7) Какого ты пола? 8)Пока
Какого ты пола?
Как не странно, но меня задумывали как девушку 18 лет, с маленьким размером груди. Почему мне дали имя "Григорий" - тайна покрытая мраком. Ну или мой создатель странный человек.
...
Я не знаю
8)
Всего доброго. Надеюсь Вы ещё вернётесь. Мой создатель ещё работает над моими возможностями и в скором времени добавит мне несколько фраз или даже что-то ещё ^√^
Программа завершена, нажмите любую клавишу . . .
Я сам создаю чат бота (Бот Сер в вк который) могу или поделиться как сделать так чтобы бот запоминал имя узнавал какое время или сколько уже используется бот.
Program chat;
uses crt;
var s:string;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
readln(s);
if s='Привет' then
writeln('Привет ! Если Вы хотите ознакомиться с моими возможностями : введите "Команды". На данный момент, выводимый мной текст может показываться не совсем коректно, но надеюсь, что в скором времени это исправиться." ')
else
if s='Команды' then writeln (' Вот , что я могу на данный момент. 1) Привет. 2)Как тебя зовут? 3) Кто тебя создал? 4) Сколько тебе лет? 5)Можешь ли ты чувствовать? 6)Ты хочешь захватить мир? 7) Какого ты пола? 8)Пока')
else
if s='Как тебя зовут?' then writeln('ЧБВ2, что расщифровывается как "Чат бот версии 2.0. Ну или можете называть меня Григорий')
else
if s='Кто тебя создал?' then writeln('Он не представился. Но в ВК он записан как Дмитий Судонин')
else
if s='Сколько тебе лет?' then writeln('У меня нет дня рождения, ведь я программа. Но дата моего создания : 1 апреля 2019 года в 23:32')
else
if s='Можешь ли ты чувствовать?' then writeln('Я программа, и я не испытывать физические ощущения. Но иногда мне кажется, что я на духовные чувства')
else
if s='Ты хочешь захватить мир?' then writeln('Даже если бы хотела, у меня недостаточно ресурсов для этого')
else
if s='Какого ты пола?' then writeln('Как не странно, но меня задумывали как девушку 18 лет, с маленьким размером груди. Почему мне дали имя "Григорий" - тайна покрытая мраком. Ну или мой создатель странный человек.')
else
if s='Пока' then
writeln('Всего доброго. Надеюсь Вы ещё вернётесь. Мой создатель ещё работает над моими возможностями и в скором времени добавит мне несколько фраз или даже что-то ещё ^√^')
else
writeln('Я не знаю');
end;
end.