Var
x:real;
Begin
x:=-5;
repeat
writeln('y = ',sqr(x));
x:=x+0.5;
until(x>5)
End.
Program number;
var c, d,i:integer;
begin
writeln('Введите число');
readln(d);
writeln('Введите сколько раз вывести число');
readln(c);
for i:=1 to c do
write(d,' ');
end.
Program v1;
Var n,k, sum: integer;
Begin
Write ('Введите знаменатель: ');
Readln(n);
Write ('Введите числитель: ');
Readln (k);
Sum := (n div k);
Write(Sum);
End.
#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;
}