Меню сайта

Задача №28

Определениеномера краски.

uses crt-

var color:string-

a:integer-

begin-

clrscr-

writeln(‘Введите цвет (маленькие буквы)’)-

readln(color)-

a:=1-

IF color = ‘красный’ THEN

-begin

-writeln(‘1’)-a:=0-

end-

IF color = ‘зеленый’ THEN

-begin

-writeln(‘2’)-a:=0-

-end-

IF color = ‘желтый’ THEN

-begin

-writeln(‘3’)-a:=0-

-end-

IF color = ‘черный’ THEN

-begin

-writeln(‘4’)-a:=0-

-end-

IF color = ‘белый’ THEN

-begin

-writeln(‘5’)- a:=0-

-end-

IF color = ‘синий’ THEN

-begin

-writeln(‘6’)- a:=0-

-end-

IF color = ‘коричневый’ THEN

-begin

-writeln(‘7’)-a:=0-

-end-

if a=1 thenwriteln(‘такой краски нет’)-

end.

Категория: Разветвляющиеся программы | Дата: 05.01.13

Меню раздела
Блок