Как сделать так, чтобы программа отвечала "я не знаю" если вопроса, заданного через консоль, нет в коде? program chat; uses crt; var s: string; i: integer; beginclrscr; for i: =1 to 10 dobeginreadln(s); if s='' thenwriteln(' ! если вы хотите ознакомиться с моими возможностями : введите "команды". на данный момент, выводимый мной текст может показываться не совсем коректно, но надеюсь, что в скором времени это исправиться." '); if s='команды' then writeln (' вот , что я могу на данный момент. 1) . 2)как тебя зовут? 3) кто тебя создал? 4) сколько тебе лет? 5)можешь ли ты чувствовать? 6)ты хочешь захватить мир? 7) какого ты пола? 8)пока'); if s='как тебя зовут? ' thenwriteln('чбв2, что расщифровывается как "чат бот версии 2.0. ну или можете называть меня григорий'); if s='кто тебя создал? ' then writeln('он не представился. но в вк он записан как дмитий судонин'); if s='сколько тебе лет? ' then writeln('у меня нет дня рождения, ведь я программа. но дата моего создания : 1 апреля 2019 года в 23: 32'); if s='можешь ли ты чувствовать? ' then writeln('я программа, и я не способна испытывать ощущения. но иногда мне кажется, что я способна на духовные чувства'); if s='ты хочешь захватить мир? ' then writeln('даже если бы хотела, у меня недостаточно ресурсов для этого'); if s='какого ты пола? ' then writeln('как не странно, но меня задумывали как девушку 18 лет, с маленьким размером груди. почему мне дали имя "григорий" - тайна покрытая мраком. ну или мой создатель странный человек.'); if s='пока' thenwriteln('всего доброго. надеюсь вы ещё вернётесь. мой создатель ещё работает над моими возможностями и в скором времени добавит мне несколько фраз или даже что-то ещё ^√^'); end; readln; end.

277

386

Посмотреть ответы 2

Ответы на вопрос:

arturpushkin202453

Информатика

4,6(13 оценок)

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.

aeremicheff

Информатика

4,6(1 оценок)

Проверил у себя обе программы - всё работает, у вас тоже должно работать. 1). program summ_s; var i, n, denominator: integer; s, summ: real; begin n: =1; for i: =1 to 999 do begin if denominator=128 then begin write('s = '+summ); break; end; denominator: =n*2; s: =1/denominator; // 1/1*2, 1/2*2, 1/4* n: =denominator; summ: =summ+s; end; end. 2). program massive; var num_1, num_2, num_3, num_4, num_5, num_6, num_7, num_8, num_9, num_10, number: longint; i: integer; begin for i: =1 to 10 do begin write('введите число: '); readln(number); case i of 1: num_1: =number; 2: num_2: =number; 3: num_3: =number; 4: num_4: =number; 5: num_5: =number; 6: num_6: =number; 7: num_7: =number; 8: num_8: =number; 9: num_9: =number; 10: num_10: =number; end; end; writeln('введенные числа в обратном порядке: ' +num_10,num_9,num_8,num_7,num_6, num_5,num_4,num_3,num_2,num_1); end. p.s можно и по другому сделать, но я уже паскаль особо не помню. надеюсь , удачи : )