PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
begin var c:=ReadlnChar('Введите с, о, д или г:'); case c of 'с':Writeln('снег'); 'о':Writeln('облачно'); 'д':Writeln('дождь'); 'г':Writeln('гололедица'); else Writeln('неверный ввод') end end.
Внимание! Если программа не работает, обновите версию!
begin
var c:=ReadlnChar('Введите с, о, д или г:');
case c of
'с':Writeln('снег');
'о':Writeln('облачно');
'д':Writeln('дождь');
'г':Writeln('гололедица');
else Writeln('неверный ввод')
end
end.