4- построить алгоритм и программу, по которой будет реализован следующий сценарий: компьютер запрашивает номер дня недели, после ввода компьютер сообщает будни это или выходные; 5 - построить программу текстовой игры
#include <iostream> #include <stdio.h> using namespace std;
int main(){ int y; cin>>y; y=y%12; switch (y){ case 4:{cout<<"Mouse"; break;} case 5:{cout<<"Bull";break;} case 6:{cout<<"Tiger";break;} case 7:{cout<<"Rabbit";break;} case 8:{cout<<"Dragon";break;} case 9:{cout<<"Snake";break;} case 10:{cout<<"Horse";break;} case 11:{cout<<"Goat";break;} case 0:{cout<<"Monkey";break;} case 1:{cout<<"Cock";break;} case 2:{cout<<"Dog";break;} case 3:{cout<<"Pig";break;} } cin.get(); cin.get(); return 0; }
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016 begin var n:=ReadInteger('n='); if n<0 then Writeln(n,'! не определено: n<0') else if n=0 then Writeln('0!=1') else begin var p:BigInteger:=1; for var i:=2 to n do p*=i; Writeln(n,'!=',p) end end.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
ch: char;
begin
write('введите номер дня недели: ');
readln(ch);
write('это ');
case ch of
'1' : writeln('понедельник');
'2' : writeln('вторник');
'3' : writeln('среда');
'4' : writeln('четверг');
'5' : writeln('пятница');
'6' : writeln('суббота');
'7' : writeln('воскресенье');
end;
readln
end.
(Это 4)