uses crt; var m: integer; beginwriteln('1) первое'); writeln('2) второе'); writeln('3) третье'); read(m); if m=1 then write('получите суп'); if m=2 then write('получите картошку'); if m=3 then write('получите компот')else write('оставайтесь голодным'); end.
uses crt; var m: integer; beginwriteln('1) первое'); writeln('2) второе'); writeln('3) третье'); read(m); case m of1: write('получите суп'); 2: write('получите картошку'); 3: write('получите компот'); else write('оставайтесь голодным'); end; end.
Поделитесь своими знаниями, ответьте на вопрос:
program atatushka1; uses crt; var m: integer; begin writeln('***************************************'); writeln('* мы рады вас *'); writeln('* в нашем ресторане *'); writeln('* a t a t u s h k a *'); writeln('* ! ! ! *'); writeln('***************************************'); writeln(); writeln('***************************************'); writeln('* м е н ю : *'); writeln('* 1. первое *'); writeln('* 2. второе *'); writeln('* 3. третье *'); writeln('* *'); writeln('***************************************'); writeln(); writeln('введите номер желаемого блюда: '); readln(m); writeln(); if m=1 then writeln('получите суп') else if m=2 then writeln('получите картошку') else if m=3 then writeln('получите компот') else writeln('оставайтесь голодным'); end.program atatushka2; uses crt; var m: integer; begin writeln('***************************************'); writeln('* мы рады вас *'); writeln('* в нашем ресторане *'); writeln('* a t a t u s h k a *'); writeln('* ! ! ! *'); writeln('***************************************'); writeln(); writeln('***************************************'); writeln('* м е н ю : *'); writeln('* 1. первое *'); writeln('* 2. второе *'); writeln('* 3. третье *'); writeln('* *'); writeln('***************************************'); writeln(); writeln('введите номер желаемого блюда: '); readln(m); writeln(); case m of 1: writeln('получите суп'); 2: writeln('получите картошку'); 3: writeln('получите компот'); else writeln('оставайтесь голодным'); end; end.