C case Var a:integer; Begin Write('Введите число от 5 до 9: '); readln(a); case a of 5:writeln('Вы ввели число "пять"'); 6:writeln('Вы ввели число "шесть"'); 7:writeln('Вы ввели число "семь"'); 8:writeln('Вы ввели число "восемь"'); 9:writeln('Вы ввели число "девять"') end;
readln End.
С if Var a:integer; Begin Write('Введите число от 5 до 9: '); readln(a); if a=5 then writeln('Вы ввели число "пять"'); if a=6 then writeln('Вы ввели число "шесть"'); if a=7 then writeln('Вы ввели число "семь"'); if a=8 then writeln('Вы ввели число "восемь"'); if a=9 then writeln('Вы ввели число "девять"');
Не будет работать если у переменной "а" будет максимальное значение если a>b то M:=a if a>b then M:=a; иначе M:=b всё else M:=b; если c>b то M:=c if c>b then M:=c иначе M:=b всё else M:=b; если a>c то M:=a if a>c then M:=a иначе M:=c всё else M:=c;
Информатика-это наука,изучающая виды информации её получения,хранения и передачи. География-это наука,о природе нашей планеты и о законах,по которым она живет и развивается. Фонетика-это раздел науки о звуках русского языка Ботаника-это раздел науки о изучении растений Имя сущ-это самостоятельная часть речи,которая отвечает на вопросы кто? что? и обозначает предмет Глагол-это самостоятельная часть речи,которая отвечает на вопросы что сделать?что делать? и др. обозначает действие предмета Тяж.промышленность-это группа отраслей промышлености,производящих преимущественно средства произовдства. Легкая промышленность-это отрасль народного хоз.,производящая потребительские товары.
Var
a:integer;
Begin
Write('Введите число от 5 до 9: '); readln(a);
case a of
5:writeln('Вы ввели число "пять"');
6:writeln('Вы ввели число "шесть"');
7:writeln('Вы ввели число "семь"');
8:writeln('Вы ввели число "восемь"');
9:writeln('Вы ввели число "девять"')
end;
readln
End.
С if
Var
a:integer;
Begin
Write('Введите число от 5 до 9: '); readln(a);
if a=5 then writeln('Вы ввели число "пять"');
if a=6 then writeln('Вы ввели число "шесть"');
if a=7 then writeln('Вы ввели число "семь"');
if a=8 then writeln('Вы ввели число "восемь"');
if a=9 then writeln('Вы ввели число "девять"');
readln
End.