program i_guess_number; uses crt; var changes: array [1..2,1..10] of integer; i,op,n: integer; s: string; res: real; begin randomize; writeln("загадайте число"); n : = 0; repeat n : = n+1; i : = random(10); op : = random(4); case op of 1: s : = "прибавте "; 2: s : = "отнимите "; 3: s : = "умножте на "; else s : = "поделите на "; end; writeln(s, i); changes[1,n] : = op; {запоминаем действия} changes[2,n] : = i; until n = 10; writeln("что вышло? "); readln(res); for i : = n downto 1 do { производим обратные действия } begin case changes[1,i] of 1: res : = res - changes[2,i]; 2: res : = res + changes[2,i]; 3: res : = res / changes[2,i]; else res : = res * changes[2,i]; end; end; writeln("вы загодали ",res); end.
Ответ дал: Гость
include < iostream>
using namespace std;
int main()
{int n;
cin > > n;
switch(n)
{case 1: cout< < "i"; break;
case 5: cout< < "v"; break;
case 10: cout< < "x"; break;
case 50: cout< < "l"; break;
case 100: cout< < "c"; break;
case 500: cout< < "d"; break;
case 1000: cout< < "m"; break;
}
return 0;
}
Ответ дал: Гость
1)
var
i,n: integer;
begin
readln(n);
for i: =1 to n do writeln(i*i);
end.
2)
var
i,n: integer;
begin
readln(n);
for i: =1 to 10 do writeln(i: 2,'*',n,'=',i*n: 3);
end.
3)
var i,n: integer; p: real;
begin readln(n); p : = 1; for i : = 1 to n do p : = p * i; writeln(p: 15: 0); end.
Популярные вопросы