#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL,"RUS");
const int n=10;
bool yes=false;
double a, temp;
cin>>a;
for (int i=0;i<(n-1);i++)
{
temp=a;
cin>>a;
if (a<=temp){yes=false;break;}
else yes=true;
}
if (yes)
cout<<"Ряд возрастающий";
else cout<<"Ряд не возрастающий";
system("pause");
return 0;
}
Uses crt;
var s,i,x : integer;
begin
Read(x);
For i:=1 to 5 do begin
s:=s + (x mod 10);
x:=x div 10;
end;
Write (s);
end.
Язык - ПаскальABC
Если хочешь можешь еще сделать проверку на пятизначное число.
Используя закон Де-Моргана и двойного дополнения получаем
-(-Av-B)^C = --(A^B)^C = A^B^C
Жаль редактор формул не поддерживает работу с множествами.
Ответ:1)Тактовая частота процессора это количество выполняемых процессором операций в секунду.2)Системная шина – основная интерфейсная система компьютера, обеспечивающая сопряжение и связь всех его устройств между собой. Шина представляет собой канал передачи данных в виде электронных проводников на материнской плате или многожильного кабеля.3)Порт ввода-вывода – логическое объединение сигнальных линий, через которое принимаются и передаются данные.
Объяснение:
1. Не знаю, как совместить стороны и диагонали в одном решении, сделал нахождение по диагоналям.
var d1, d2, S: real;
begin
write('Введите диагонали d1 и d2');
readln(d1, d2);
if(d1>0) and (d2>0) then
begin
S:=(d1*d2)/2;
writeln('Площадь равна: ', S)
end
else
writeln('Условия неверны!')
<span>end.
Чтобы написать, достаточно знать основы паскаля. Если есть вопросы к какой-либо строке - напиши.
2. </span><span>16*sqr(sqr(x))-(sqrt(x))</span>