===== PascalABC.NET =====
function GetMatrix: array[,] of integer;
begin
var (m, n) := ReadInteger2('Число строк и столбцов в массиве:');
Result := MatrRandom(m, n, 0, 20)
end;
function MinCol(a: array[,] of integer): integer;
begin
for var j := 0 to a.ColCount - 1 do
if a.Col(j).All(p -> p > 10) then
begin
Result := j;
Exit
end;
Result := -1;
end;
begin
var M := GetMatrix;
M.Println(4);
var k := MinCol(M);
if k = -1 then
Println('Нет столбцов, в которых все элементы больше 10')
else
Println('Минимальный номер найденного столбца:', k + 1)
end.
<span>Программа
begin
var n := ReadlnInteger;
var Data := ArrGen(n, x -> ReadlnString.ToWords);
var MaxScore := Data.Max(x -> x[2].ToInteger);
Data.Where(x -> x[2].ToInteger = MaxScore).Select(x ->
x.JoinIntoString).Print(NewLine)</span>
end.
Ввод:
5
Георгий Сазонов 65
Матвей Панфилов 39
Василий Колобов 85
Иван Кириллов 72
Юрий Гришин 85
Вывод:
Василий Колобов 85
Юрий Гришин 85
Var a,V,S:integer;
Begin
writeln('Enter A:');
readln(a);
V:=a*3;
S:=6*2*a;
writeln('V=',V,'; S=',S,';');
end.
var a,b,sum,dob,raz:integer;
Begin
writeln('Enter A:');
readln(a);
writeln('Enter B:');
readln(b);
sum:=abs(a)+abs(b);
raz:=abs(a)-abs(b);
dob:=abs(a)*abs(b);
writeln('Summa=',sum,'; Raznost=',raz,'; Dobutok=',dob,';');
<span>end.</span>
#include <iostream>
#include <iomanip>
using namespace std;
int main()
{
int a, b, c, x;
cin >> x;
if ( x<=999 ) {
a = (x / 100)%10;
b = (x / 10)%10;
c = (x / 1)%10;
if ( a == b && b == c && a == c){
cout << "Все цифры одинаковые" <<endl;
} else if ( a == b || b == c || a == c ){
cout << "Есть одинаковые цифры" << endl;
} else {
// (по усл. не треб.) cout << "Все цифры разные " <<endl;
}
}
return 0;
}
Перевод из бит в мегабайт в с :80*10^20 бит в секунду = 0.00001 мегабайт в секундуперевод 1 м 20с в секунды : 80с находим файл : 80с * 0.00001 мегабайт в секунду = 0,0008 мегабайт