Двозначне число, записане в системі числення з основою 5, при переставленні чисел перетворюється на число, записане в системі числення з основою 7. Знайти це число.
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 type Matrix=array[,] of integer;
procedure MatPrint(a:Matrix); begin var m:=Length(a,1)-1; for var i:=0 to Length(a,0)-1 do begin for var j:=0 to m do Write(a[i,j]:4); Writeln end end;
function IsEqual(a:Matrix; col:integer):boolean; begin var s:=sign(a[0,col]); for var i:=1 to Length(a,0)-1 do s+=sign(a[i,col]); if (s=0) then Result:=(a[0,col]<>0) else Result:=false end;
procedure DeleteCol(var a:Matrix; col:integer); begin var n:=Length(a,0)-1; var m:=Length(a,1)-1; for var j:=col+1 to Length(a,1)-1 do for var i:=0 to n do a[i,j-1]:=a[i,j]; SetLength(a,n+1,m) end;
begin var n:=ReadInteger('Строк:'); var m:=ReadInteger('Столбцов:'); var a:=MatrixRandom(n,m,-99,99); Writeln('Исходная матрица'); MatPrint(a); for var j:=Length(a,1)-1 downto 0 do if IsEqual(a,j) then DeleteCol(a,j); Writeln('Результирующая матрица'); MatPrint(a); end.
#include <iostream>
#include <Windows.h>
int main()
{
int v;
double S, t, t1, tmpT,tmpT1,b,tmpT3;
std::cout << "V - km\h: ";
std::cin >> v;
std::cout << "\nS - km: ";
std::cin >> S;
std::cout << "\nT - hour: ";
std::cin >> t;
std::cout << "\nT1 - minut: ";
std::cin >> t1;
tmpT = S / v;
t -= tmpT;
tmpT3 = t - tmpT;
if (tmpT3 < t)
{
std::cout << "edem bez ostanovok" << std::endl;
system("pause");
exit(1);
}
tmpT1 = (t * 60) / t1;
b = (double)(int)tmpT1;
std::cout << "kol ostanovok: " << b << std::endl;
system("pause");
}