Программа Паскаль ближайшая к дому булочная работает с 7:00 до 19:00 и закрывается на перерыв с 13:00 до 15:00. Хлебный магазин, расположенный дальше, работает с 8:00 до 20:00 и имеет перерыв с 14:00 до 16:00. С 8:00 до 24:00 хлеб можно купить в супермаркете, расположенном дальше, чем хлебный магазин, и работающем без обеда. По времени на часах у пользователя определить, что лучше:

а) сходить в булочную, так как она открыта;

б) дойти до хлебного магазина;

в) съездить в супермаркет;

г) сидеть дома, так как везде закрыто.

Время вводится следующим образом: часы – целая часть числа, минуты – дробная часть числа. Например, 14,25 – 14 часов 25 минут

270

311

Посмотреть ответы 3

Ответы на вопрос:

алеся678

Информатика

4,8(61 оценок)

program hungry;

var

time: real;

begin

write('Который час? ');

readln(time);

if (time < 0) or (time >= 24) or (frac(time) >= 0.6) then

writeln('У кого-то часы барахлят...')

else if (time >= 7) and (time < 13) or (time >= 15) and (time < 19) then

writeln('Отлично, булочная работает!')

else if (time >= 8) and (time < 14) or (time >= 16) and (time < 20) then

writeln('Можно до хлебного магазина дойти.')

else if (time >= 8) and (time < 24) then

writeln('Голод не тетка, придется в супермаркет ехать...')

else

writeln('Извини, друг, но сегодня хлеба не будет, сиди дома!');

end.

Eduard10Kulanov

Информатика

4,8(65 оценок)

var

a: real;

s: string;

begin

write('Введите время: ');

readln(a);

if ((7

else if ((8

else if (8

else s:='сидеть дома, так как везде закрыто';

write(s);

end.

AlexSashka2003

Информатика

4,4(83 оценок)

Const n = 10; var a : array[1..n,1..n] of integer; b : array[1..n] of integer; i,j,max : integer; begin randomize; writeln('массив a: '); for i: =1 to n do begin max: =1; for j: =1 to n do begin a[j,i]: =random(90)+10; if a[j,i]> a[max,i] then max: =j; end; b[i]: =a[max,i]; end; for i: =1 to n do begin for j: =1 to n do write(a[i,j]: 3); writeln; end; writeln(#13,'массив b: '); for i: =1 to n do write(b[i]: 3); writeln; end.