Определить предпочтения пола по введенному значению

@ZverFun · Регистрация: 17.04.2015

Author24 — интернет-сервис помощи студентам

Pascal

program z1;
var a: char;
begin
write ('введите ваш пол "м-мальчик","д-девочка"');
readln (a);
if a='м' then writeln ('вам нравятся девочки') else if a='д' writeln ('вам нравятся мальчики') else writeln ('ошибка');
end.

Если возможно, то объясните решение

ФедосеевПавел · 27.04.2015, 18:06

Смотрим сообщение компилятора

if a='м' then writeln ('вам нравятся девочки') else if a='д' then writeln ('вам нравятся мальчики') else writeln ('ошибка');

Я откомпилировал в WDE - получил сообщение

Program1.pas(6,63): FOUND'writeln'EXPECTEDthen

начал проверять баланс if then

Добавлено через 7 минут

Не по теме:

Изначальная причина ошибки - несоблюдение правил оформления исходников. Сейчас сразу не вспомню где встречал на русском, но есть на сайте разработчика Delphi - ссылка.

@ZverFun · 27.04.2015, 18:07 **[ТС]**

благодарю, я разобрался

ФедосеевПавел Модератор 8476 / 4335 / 1642 Регистрация: 01.02.2015 Сообщений: 13,461 Записей в блоге: 8
	27.04.2015, 18:06	2
	Смотрим сообщение компилятора if a='м' then writeln ('вам нравятся девочки') else if a='д' then writeln ('вам нравятся мальчики') else writeln ('ошибка'); Я откомпилировал в WDE - получил сообщение Program1.pas(6,63): FOUND'writeln'EXPECTEDthen начал проверять баланс if then Добавлено через 7 минут Не по теме: Изначальная причина ошибки - несоблюдение правил оформления исходников. Сейчас сразу не вспомню где встречал на русском, но есть на сайте разработчика Delphi - ссылка. 1

@ZverFun 1 / 1 / 0 Регистрация: 17.04.2015 Сообщений: 12
	27.04.2015, 18:07 [ТС]	3
	благодарю, я разобрался 0