Uses crt; var a,b,c:integer; begin textbackground(15); clrscr; textcolor(1); writeln('вводить номер ответа 1,2!'); writeln('человек учиться хорошо? 1)да2)нет'); readln(a); clrscr; writeln('ему больше 18 лет? 1)да2)нет'); readln(b); clrscr; writeln('он хочет получить образование?1)да2)нет'); readln(c); clrscr; if (a=1)and(b=1)and(c=1) then begin writeln('он учиться в институте!'); end else begin writeln('он учиться в техникуме!'); end; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку