сделайте пожалуйста срочно

+ 0 -

Фролова1999

13 окт. 2014 г., 19:53:05 (9 лет назад)

вариант решения через if... then... else
var 
t: byte;
begin  Write('Vvedite vremya: '); 
Readln(t); 
if (t < 0) or (t > 24) then     
begin       
Writeln('Oshibka! Nevernyj vvod dannyh!');       
Readln;       
Exit;     
end;
if (t >= 0) and (t <= 10) then Writeln('Vy uzhe prosnulis?')
else if (t >= 13) and (t <= 15) then Writeln('Ne pora li obedat?')
else if (t >=18) and (t <= 24) then Writeln('Vecher i noch vperedi!')
else Writeln('Kak rabotaetsya?');
Readln;
end.

вариант решения через case...of
var 
t: byte;
begin 
Write('Vvedite vremya: '); 
Readln(t); 
if (t < 0) or (t > 24) then     
begin       
Writeln('Oshibka! Nevernyj vvod dannyh!');       
Readln;       
Exit;     
end;
case t of
0..10: Writeln('Vy uzhe prosnulis?');
13..15: Writeln('Ne pora li obedat?');
18..24: Writeln('Vecher i noch vperedi!')
else Writeln('Kak rabotaetsya?');
end;
Readln;
end.