Var a,b,n:integer;
begin
writeln('n=');
readln(n);
<span>a:=n mod 10;
b:=n div 10;
if (a= 4) or (b=4) or (a=7) or (b=7) then writeln('yes')
else
writeln('no');
readln;
end.
__________________________
</span>var a,b,n:integer;
begin
writeln('n=');
readln(n);
a:=n mod 10;
b:=n div 10;
if (a= 3) or (b=3) or (a=6) or (b=6) or (a=9) or (b=9)
then writeln('yes')
else
writeln('no');
readln;
end.
#include <iostream>
#include <ctime>
using namespace std;
void FillArray( int *mainArray, int arraySize,
int leftRandBorder, int rightRandBorder )
{
srand(time(NULL));
for (int i = 0; i < arraySize; i++)
mainArray[i] = leftRandBorder + rand() % (rightRandBorder - leftRandBorder + 1);
}
int SearchArray( int *mainArray, int arraySize, int number_A, int number_B )
{
int res = 0;
for (int i = 0; i < arraySize; i++)
res += mainArray[i] >= number_A && mainArray[i] <= number_B;
return res;
}
int main()
{
int
*mainArray,
arraySize;
cout << "Enter the array size: ";
cin >> arraySize;
mainArray = new int[arraySize];
int
leftRandBorder,
rightRandBorder;
cout << "Enter the rage from 'a' to 'b': ";
cin >> leftRandBorder >> rightRandBorder;
FillArray(mainArray, arraySize, leftRandBorder, rightRandBorder);
int
number_A,
number_B;
cout << "Enter the 'number_A' and the 'number_B': ";
cin >> number_A >> number_B;
cout << "Result =
<< SearchArray(mainArray, arraySize, number_A, number_B)
<< endl;
delete[] mainArray;
cout << "\nPress 'Enter' for exit\n";
cin.get();
return 0;
}
1. 1) кулинарный рецепт
2. 5) дискретность
3. 2) ветвление
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=ReadInteger('Количество столбцов в матрице:');
Writeln('Вводите элементы матрицы построчно');
var a:=new real[n,m];
var b:=new real[n];
for var i:=0 to n-1 do begin
b[i]:=0;
for var j:=0 to m-1 do begin
Read(a[i,j]);
b[i]+=Sqr(a[i,j])
end;
b[i]:=Sqrt(b[i])
end;
Writeln('Сформированный вектор');
b.Println;
end.
<u>Пример</u>
Количество строк в матрице: 4
Количество столбцов в матрице: 3
Вводите элементы матрицы построчно
3.4 5.1 8
-1 0 1
-5.34 1.777 5
3 4 5
Сформированный вектор
10.0781942827076 1.4142135623731 7.52816903370268 7.07106781186548
Говорить про вес луны не сосвсем корректно, так как это непосредственно от планеты, на которой она лежит. Масса её равна 7,3477×10^22 кг.
<span>Расстояние между Землей и Луной равно <span>384400 км.</span></span>