Уровни наложения заставляют работать не напрямую с машиной, ограничивая язык, а с языком программирования, который содержит другой, более удобный язык, похожий на простой обычный, смысловой, логический, который сам объяснит за вас это машине, так как машина говорит лиш на одном.
вот в чём разница. Низкого уровня язык - это язык машины, но он прямой, как разговор с человеком, а не с переводчиком.
переводчик ведь тоже поправит предложения или полностью заменит их если это выражения языка.
поэтому в языках программирования доступно много всего, всё что захочет создатель
Var
i,sum,k:integer;
mas: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
mas[i]:=random(-10,10);
write(mas[i], ' ');
end;
writeln(' ');
for i:=1 to 10 do begin
if mas[i] mod 3 = 0 then begin
k:=k+1;
sum:=sum+mas[i];
end
end;
writeln('Числа кратные 3 встречаются ',k,' раз. И их сумма = ',sum);
end.
Type
mas=array[,] of integer;
var
i,j,ik,jk,k,max:integer;
a:mas;
b:array[0..5]of integer;//вспомогательный массив
begin
setlength(a,5,6);
writeln('Массив:');
// в массиве b минимальное число строки
for i:=0 to 4 do
begin
for j:=0 to 5 do
begin
a[i,j]:=random(-10,10);
write(a[i,j]:4);
if j=0 then b[i]:=a[i,0];
if a[i,j]<b[i] then b[i]:=a[i,j];
end;
writeln;
end;
writeln('Замена минимального противоположным:');
for i:=0 to 4 do
begin
for j:=0 to 5 do
begin
if a[i,j]=b[i] then a[i,j]:=-a[i,j];
write(a[i,j]:4);
end;
writeln;
end;
writeln('Вставка столбцов:');
// в массиве b признак наличия в столбце максимума
for i:=0 to 5 do b[i]:=0;
for i:=0 to 4 do
for j:=1 to 5 do
if a[i,j]>max then max:=a[i,j];
for i:=0 to 4 do
for j:=0 to 5 do
if a[i,j]=max then b[j]:=1;
for i:=0 to 5 do k:=k+b[i];
k:=5+k;
setlength(a,5,k+1);
jk:=k;
for j:=5 downto 0 do
begin
if b[j]=1 then
begin
for ik:=0 to 4 do a[ik,jk]:=1;
jk:=jk-1;
end;
for ik:=0 to 4 do a[ik,jk]:=a[ik,j];
jk:=jk-1;
end;
for i:=0 to 4 do
begin
for j:=0 to k do write(a[i,j]:4);
writeln;
end;
writeln('Удаление первой строки:');
for i:=0 to 3 do
for j:=0 to k do
a[i,j]:=a[i+1,j];
setlength(a,4,k+1);
for i:=0 to 3 do
begin
for j:=0 to k do
write(a[i,j]:4);
writeln;
end;
writeln('Обмен столбцов:');
for i:=0 to 3 do
begin
b[i]:=a[i,k-1];
a[i,k-1]:=a[i,k];
a[i,k]:=b[i];
end;
for i:=0 to 3 do
begin
for j:=0 to k do write(a[i,j]:4);
writeln;
end;
<span>end.</span>
Ответ:
#include <iostream>
using namespace std;
int main()
{
unsigned long p, pp;
int F, n, i;
setlocale(LC_ALL, "russian");
cout << "Население = ";
cin >> p;
cout << "Прирост = ";
cin >> F;
cout << "n = ";
cin >> n;
i = 0;
pp = p;
while (pp < p * n) {
pp += (int) pp / F;
i++;
}
cout << "\nЧерез " << i << " лет";
}
1. 1111₂+1100₂=11011₂ - ответ.
2. Рассмотрим каждое утверждение:
Если истинно утверждение, что "А делится на 55", тогда истины и 2 первых утверждения, потому что 55/5=11 55/11=5 - получается уже 3 истины, значит это ложное высказывание.
Если истинно высказывание: "А меньше 10", тогда <u>"А делится на 11" - ложь</u>. Отсюда истинная пара: "А меньше 10" и "А делится на 5".
Иначе, если "А меньше 10" - ложь, тогда остается пара: "А делится на 5" и " А делится на 11", но эта пара истинной быть не может, потому как если А делится на 11 и 5, то 11 должно делится на 5.
<u>Ответ: A=5</u>