#include <bits/stdc++.h>
using namespace std;
int main() {
int x, y;
cin >> x;
while (true) {
cin >> y;
if (y == -1) break;
if (y >= x) {
cout << "NO" << endl;
return 0;
}
x = y;
}
cout << "YES" << endl;
return 0;
}
1 ) A$2+ 2*B2 = 1+ 2*2=1+4=5
то есть в ячейке будет записано число 5
2) А$1+B$1=10+20=30
в ячейке будет записано число 30
Const n=30;
var a:array[1..n] of integer;
k,i:integer;
begin
for i:=1 to n do begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
k:=0; i:=0;
while (i<n)and(k<3) do
begin
i:=i+1;
if a[i]>0 then k:=k+1;
end;
if k=3
then writeln('Номер третьего положительного элемента = ',i)
else writeln('В массиве нет 3 положительных элементов');
end.
Пример (для n=20):
-4 -10 3 -4 6 1 -9 4 -10 -8 7 7 0 -2 9 -4 -10 -3 1 -2
Номер третьего положительного элемента = 6
1) По столбцу "Кол. уч." числа : 22, 33, 43, 15, 30
в форматах: числовой 0 знаков после запятой (целые), 2 знака, дата, процентный, числовой 0 знаков
2) Когда числа представлены с точностью до сотых и их диапазон изменения мал, например 4.77...325.41
<em>// PascalABC.NET 3.2, сборка 1431 от 28.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(12,-50,50); a.Println;
Writeln('Сумма нечетных элементов: ',a.Where(k->k.IsOdd).Sum)
end.
<u>Пример</u>
22 -27 4 3 -30 -25 29 -27 -44 26 21 -28
Сумма нечетных элементов: -26
begin
var w:array[1..4] of string;
var s:string:='';
for var i:=1 to 4 do begin Readln(w[i]); s:=s+w[i] end;
for var i:=1 to 3 do Writeln(s+' '+i*'!')
end.
<u>Пример</u>
Первое
Второе
Третье
Четвертое
ПервоеВтороеТретьеЧетвертое !
ПервоеВтороеТретьеЧетвертое !!
ПервоеВтороеТретьеЧетвертое !!!