C curpiva Регистрация 24 Окт 2013 Сообщения 79 Репутация 0 Спасибо 0 Монет 0 13 Мар 2024 #1 Помогите исправить код паскаль, нужно написать программу с защитой, заранее спасибо вот код; program Gddsf; var a:integer; s: string; begin writeln('введите возвраст' readln(a); write('введите имя' read(s); if (a>=18)and (a<=150) then write(s,' ,ты сможешь голосовать' else write (' ты не сможешь голосовать' read(s); else if (a>0)and (a<160) then writes (s',ты еще не родился' else write ('ты уже мёртв' end.
Помогите исправить код паскаль, нужно написать программу с защитой, заранее спасибо вот код; program Gddsf; var a:integer; s: string; begin writeln('введите возвраст' readln(a); write('введите имя' read(s); if (a>=18)and (a<=150) then write(s,' ,ты сможешь голосовать' else write (' ты не сможешь голосовать' read(s); else if (a>0)and (a<160) then writes (s',ты еще не родился' else write ('ты уже мёртв' end.
Д Денискаа Регистрация 14 Ноя 2013 Сообщения 87 Репутация 0 Спасибо 0 Монет 0 13 Мар 2024 #2 точка с запятой перед else не ставится
A ASDFZXCV Регистрация 14 Авг 2013 Сообщения 76 Репутация -3 Спасибо 0 Монет 0 13 Мар 2024 #3 А менделеева нет?
X Xasler Регистрация 26 Авг 2013 Сообщения 80 Репутация 0 Спасибо 0 Монет 0 13 Мар 2024 #4 Ты уже мертв
Д Дима2003 Регистрация 27 Дек 2013 Сообщения 80 Репутация 0 Спасибо 0 Монет 0 13 Мар 2024 #5 Лучше звони солу