program a1; const n=20; var c: array [1..100] of integer; var i,k: integer; begink: =0; for i: =1 to n do beginc[i]: =random(101)-50; {заполнение массива произвольно от -50 до 50}write(' ',c[i]); {вывод массива на экран}end; for i: =2 to n doif c[i]< c[i-1] then k: =k+1; {сравнение элемента с предыдущим и счет элементов которые меньше}writeln; writeln('количество элементов=',k); end.
Ответ дал: Гость
проводник - абориген.
потому что если бы он спросил у пришельца, которые всегда лгут, "кто ты? ", то тот солгал, сказав "абориген". и проводник пришел и сказал правду.
а если бы проводник был бы пришельцем, спросив у аборигена "кто ты? ", то абориген сказал бы правду. но пришелец путешественнику соврал бы, сказав, что тот пришелец.
Ответ дал: Гость
y=2,5*x
x=x*x |x^2
y=y*x |2.5*x^3
y=y+1 |1+2.5*x^3
y=y-x |1+2.5*x^3 - x^2
x=x*x |x^4
y=y+x |1+2.5*x^3 - x^2=x^4
y=y*y
Ответ дал: Гость
var x: byte; beginwrite(‘ введите число от 1 до 7')readln(x); case x of1: writeln(‘понедельник’); 2: writeln(‘вторник’); 3: writeln(‘среда’); 4: writeln(‘четверг’); 5: writeln(‘пятница’); 6: writeln(‘суббота’); 7: writeln(‘воскресенье’); end; readlnend.
я не помню как чтоб выдало ошибку ..пили если больше х то ошибка
Популярные вопросы