1)256×4×64=65536
2)16×32×512=262144
3)10×2^10×8=1600
4)2^5×12×32=3840
5)64×1/16×256=1024
6)32×8×1/4=512
вот так
Держи в константе количество элементов прогрессии.
// PascalABC.NET 3.1, сборка 1246 от 23.05.2016
begin
var s:=ReadAllLines('1.txt');
Writeln('Считано:'); s.Println(NewLine);
var a:=s.Select(x->x.Replace(';',' ')).ToArray
.JoinIntoString.ToReals.Where(x->(x>0) and (Frac(x)=0))
.Select(x->Trunc(x)).ToArray;
Writeln('Получено:'); a.Println();
Writeln('Справочно: тип А - ',a.GetType);
end.
<u><em>Тестовое решение</em></u>
Считано:
1;-312;-41.11;412.11
43.63;-15;27;7.62;3;-14
1342;23.23;-32.19;18
Получено:
1 27 3 1342 18
Справочно: тип А - System.Int32[]
<u>Тестовый файл 1.txt дан во вложении.</u>
Ответ:
Объяснение:
Var a,b,x,k,j : Integer;
Begin
Read (a);
Read(b);
Read(x);
While x<>0 do
Begin
If x mod 10=a then k:=k+1;
If x mod 10=b then j:=j+1;
X:=x div 10;
End;
If k=j then WriteLn('одинаковое количество ');
If k>j then WriteLn(символов а больше)
Else
WriteLn (символов b больше)