Var
a:array [1..12] of integer;
i,s:integer;
begin
writeln('vvedite 12 chisel');
for i:=1 to 12 do
readln(a[i]);
writeln('massiv');
for i:=1 to 12 do
write(a[i],' ');
writeln();
for i:=1 to 12 do
if abs(a[i])>15 then s:=s+1;
writeln('kolichestvo elementov = ',s)
end.
Program xxx;
uses CRT;
var
a, i:integer;
begin
readln(a);
while (a<>0) do
begin
write(a mod 10);
a := a div 10;
end;
<span>end.</span>
#include <iostream>
using namespace std;
int main() {
int n, answer = 1;
cin >> n;
int a[n];
for(int i = 0; i < n; i++) cin >> a[i];
for(int i = 0; i < n-1; i++)
if(a[i] >= a[i+1]) {
answer = 0;
break;
}
cout << (answer ? "yes" : "no") << endl;
}
Function Dec2Bin(ByVal x As Integer) As String
Dim t As Integer, r As String
r = "": t = x
While t >= 2
r = Trim(Str(t Mod 2)) + r
t = t \ 2
Wend
Dec2Bin = Trim(Str(t)) + r
End Function
Sub test()
MsgBox Dec2Bin(35)
End Sub
<span>988 г. - 5) Принятие христианства на Руси </span>
<span>1147 г. - 6) Первое упоминание в летописи о Москве </span>
<span>1492 г. - 9) Открытие Колумбом Америки </span>
<span>1895 г. - 3) Открытие радиосвязи </span>
<span>1941 г. - 7) Начало Великой Отечественной войны </span>
<span>1946 г. - 1) Создание первого компьютера </span>
<span>1951 г. - 2) Создание первого отечественного компьютера </span>
<span>1957 г. - 8) Запуск первого искусственного спутника Земли </span>
<span>1961 г. - 4) Первый полет человека в Космос</span>