Program Bob; var z:integer; begin writeln('введи номер дня недели'); readln(z); if z=1...

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.
Пожалуйста :) ЫЫЫ

Comments

Ну я просто что бы пусто не было :)