program prim 1 var z integer begin writeln
Sign up to view full document!
SIGN UP
По номеру дня недели вывести соответствующее ему название program prim 1; 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.
k sk 1 sk 2 sk 3 sk 4 sk 5
program zadacha 2; var n: byte; Begin writeln('Введите номер поры года'); readln(n); case n of 1: writeln('зима'); 2: writeln('весна'); 3: writeln('лето'); 4: writeln('осень'); else writeln('неправильно ввели номер поры года'); end; End.
- Slides: 9