в 4-м тыс. до н. э. из многих небольших территориальных образований — номов — возникло два политических объединения — верхний египет и нижний египет (со столицами в иераконполе и буто). создание единого государства приписывают правителю верхнего египта менесу. столицей объединённого государства около 3000 г. до н. э. стал мемфис.
только какое отношение это имеет к информатике?
Ответ дал: Гость
program xxx;
var i, n : integer;
s : real;
a : array [1..20] of real;
begin
writeln('введите размерность массива n=');
readln(n);
write('введите элементы массива а: ');
for i: =1 to n do
readln(a[i]);
writeln('исходный массив а: ');
for i: =1 to n do
writeln(a[i]);
s: =0;
for i: =1 to n do
if a[i]> 0 then s: =s+a[i];
writeln('сумма положительных элементов =', s);
readln
end.
Ответ дал: Гость
и какая вероятность что пользователь не
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.
Популярные вопросы