var a:Integer;
begin
readln( a );
write( (a div 1000) * ((a div 100) mod 10) + ((a div 10) mod 10) * (a mod 10) );
end.
Пояснение:
a - 4-значное число, тогда:
a div 1000 - первая цифра числа.
(a div 100) mod 10 - вторая цифра числа.
(a div 10) mod 10 - третья цифра числа.
a mod 10 - четвёртая цифра числа.
Дизъюнктор
<span> (соединенные параллельно замыкающие контакты нескольких реле).</span>
#include <iostream>
using namespace std;
int main()
{
int a, b, c;
cout << "Первое число = "; cin >> a;
cout << "Второе число = "; cin >> b;
cout << "Третье число = "; cin >> c;
cout << "Сумма = " << a + b + c << endl;
cout << "Произведение = " << a * b * c << endl;
cout << "Среднее арифметическое = " << (float)(a + b + c) / 3 << endl;
return 0;
}
Var b,c:integer;
a: array [1..20] of integer; {объявляем массив}
begin
randomize; {говорим что будем использовать в теле программы рандомные числа}
for b:=1 to 15 do begin {жи есть цикл программы который заполняет наш массив от первой ячейки (b) до 15 ячейки }
a[b]:=random(1000); {присваиваем элементам массива рандомные значения}
write(a[b]); {выводим эти значения}
writeln(' <== ',a[b]*2); {рядом выводим точно такой же массив с такими же числами, только умноженными на 2 , а стрелочка для красоты }
end;
<span>end.
надеюсь что так можно? ;D
</span>
Var
m : array[1..4,1..4] of Integer;
m_new : array[1..4] of Integer;
i,j : Integer;
Begin
For i:=1 to 4 do
Begin
For j:=1 to 4 do
Begin
m[i,j]:=Random(100);
Write(m[i,j]:5);
If i=j then m_new[i]:=m[i,j];
end;
Writeln;
end;
Writeln('Главная диагнональ: ');
For i:=1 to 4 do Write(m_new[i]:5);
Writeln;
end.