Pascal:
y := (5*sqr(x) - 2 * x + 1) / (3 * x - 2);
m := sqrt((3 * sqr(a) + b) / (2 * a - b)) - (2 * a + b) / (3 * a * b);
y := sqr(sin(x / 3)) + sqr(cos(abs(x - y)));
(x + y) / 2 <> sqr(x + 3);
p_1 := sqrt(abs(sqr(x) + 2 * x + 1) / (3 * x * y) + 2 * x * y) - (abs(x + 2 * y)) / 2 * x * sqr(y);
Ответ:
Исходник ниже. В задаче говорится, что чисел ровно 12, поэтому сделал статический массив на константное количество элементов. Если предполагается, что программа должна работать и на других размерах массива, то можно сделать динамический массив или использовать контейнер vector.
Объяснение:
#include <iostream>
int main(){
const int n = 12;
int a[n];
for(int i = 0; i < n; i++){
std::cin >> a[i];
}
bool ascending= true;
for(int i = 1; i < n; i++){
if (a[i-1] > a[i]){
ascending = false;
break;
}
}
if (ascending){
std::cout << "Yes" << std::endl;
}
else{
std::cout << "No" << std::endl;
}
return 0;
}
WWW состоит из множества серверов, на которых расположено множество сайтов, соединённых между собой гиперссылками. Можно представить серверы и сайты как узлы, а ссылки – как тонкие паутинки, соединяющие узлы в единое целое.
Program past;
uses crt;
var name: string;
age: float;
begin
clrscr;
readln('Введите ваше имя'; name);
readln('Введите ваш возраст'; age);
writeln;
if age<5 then
writeln (name, ' 5 лет назад вы еще не родились');
else
writeln (name, ' 5 лет назад вам было ', age -5, ' лет');
endif;
readkey;
end.
DВот решение данной задачи на языке Pascal:
var
s:string;
k,n,i:longint;
begin
read(s);
k:=0;
n:=0;
for i:=1 to length(s) do
begin
if ord(s[i])=65 then k:=k+1;
if ord(s[i])=32 then
begin
if k=3 then n:=n+1;
k:=0;
end;
end;
writeln(n);
end.
