Question

Program bob; var z: integer; begin writeln('введи номер дня недели'); readln(z); if z=1 then writeln('понедельник') else if z=2 then writeln('вторник') else if z=3 then writeln('среда') else if z=4 then writeln('четверг') else if z=5 then writeln('пятница') else if z=6 then writeln('суббота') else if z=7 then writeln('воскресенье') else writeln('нет такого дня недели'); readln; end. начертить схему(если что это паскаль)

Answer 1

Program Bob;
var z:integer;
begin

writeln('введи номер дня недели');
readln(z);
if z=1 then writeln('Понедельник')
else if z=2 then writeln('Вторник')
else if z=3 then writeln('Среда')
else if z=4 then writeln('Четверг')
else if z=5 then writeln('Пятница')
else if z=6 then writeln('Суббота')
else if z=7 then writeln('Воскресенье')
else writeln('нет такого дня недели');
readln;
end.
ЫЫЫ