Var a:string; begin writeln ('Введите день недели с большой буквы'); read (a); if a='Понедельник' then writeln ('В этот день 6 уроков'); if a='Вторник' then writeln ('В этот день 6 уроков'); if a='Среда' then writeln ('В этот день 6 уроков'); if a='Четверг' then writeln ('В этот день 6 уроков'); if a='Пятница' then writeln ('В этот день 5 уроков'); if a='Суббота' then writeln ('В этот день 3 урока'); if a='Воскресенье' then writeln ('В этот день уроков нет'); if (a<>'Понедельник') and (a<>'Вторник') and (a<>'Среда') and (a<>'Четверг') and (a<>'Пятница') and (a<>'Суббота') and (a<>'Воскресенье') then writeln ('День недели введен неправильно'); end.
Program qq; uses crt; var p, d, z, i: integer; k:real; begin writeln('Введите период для отрастания травы в днях:'); readln(p); writeln('Введите потребное количество загонов:'); readln(z); for i:=1 to 5 do begin d:=i; // переменная дней изменяется, как дано в условии от 1 до 5 дней k:=round(p/d+z); //процедура round округляет по всем правилам число загонов. Ведь весьма нелогично строить, например 3,3333 загона:) writeln ('Для количества дней пастьбы - ', d,' требуется загонов - ',k); end; end.
begin
writeln ('Введите день недели с большой буквы');
read (a);
if a='Понедельник' then writeln ('В этот день 6 уроков');
if a='Вторник' then writeln ('В этот день 6 уроков');
if a='Среда' then writeln ('В этот день 6 уроков');
if a='Четверг' then writeln ('В этот день 6 уроков');
if a='Пятница' then writeln ('В этот день 5 уроков');
if a='Суббота' then writeln ('В этот день 3 урока');
if a='Воскресенье' then writeln ('В этот день уроков нет');
if (a<>'Понедельник') and (a<>'Вторник') and (a<>'Среда') and (a<>'Четверг') and (a<>'Пятница') and (a<>'Суббота') and (a<>'Воскресенье') then
writeln ('День недели введен неправильно');
end.