помогите пожалуйста написать программу для pascal abc

задача1. Составить программу выводящую полное название предмета по введенной первой букве.Предметы: история,математика,физика,биология,английский,химия
Задача2. С клавиатуры вводится число в промежутке 1....9999999 и на экран выводится соответствующая надпись,единицы,десятки,сотни,тысячи,миллионы.

1

Ответы и объяснения

  • Участник Знаний
2014-02-28T16:11:56+04:00
1.
var a:string;
begin
read (a);
if (a='и') or (a='И') or (a='м') or (a='М') or (a='м') or (a='М') or (a='ф') or (a='Ф') or (a='б') or (a='Б') or (a='а') or (a='А') or (a='х') or (a='Х') then
begin
if (a='и') or (a='И')then writeln ('История');
if (a='м') or (a='М')then writeln ('Математика');
if (a='ф') or (a='Ф')then writeln ('Физика');
if (a='б') or (a='Б')then writeln ('Биология');
if (a='а') or (a='А') then writeln ('Английский');
if (a='х') or (a='Х') then writeln ('Химия');
end
else writeln ('Такого предмета нет');
end.