Program evro;
var a,b,i: integer;
begin
writeln ('Введите курс евро');
readln (a);
for i:=5 to 25 do
begin
b:=i*a;
writeln (i,' евро =',b,' рублей');
end;
end.
Эммм, типа двоичными числами что ли? ну как то так:
88 = 64 + 24 = 64 + 16 + 8 88=01011000
17 = 00010001
130 = 10000001
128 = 10000000
88.17.130.128 = 088.017.130.128 = 01011000.00010001.10000001.10000000
224 = 128 + 96 = 128 + 64 + 32 224 = 11100000
5=101
22=10110
224.5.0.22 = 224.005.000.022 = 11100000.00000101.00000000.00010110
Буду делать по одному. Лови!
<em>// PascalABC.NET 3.2, сборка 1325 от 19.10.2016</em>
begin
var a:=MatrixRandom(10,10,-10,10);
var sp:=0; var sn:=0;
for var i:=0 to 9 do begin
for var j:=0 to 9 do begin
Write(a[i,j]:4);
if a[i,j]>0 then Inc(sp)
else
if a[i,j]<0 then Inc(sn)
end;
Writeln
end;
Writeln('Положительных ',sp,', отрицательных ',sn)
end.
Пример
-2 4 5 10 3 7 -8 -1 -5 -9
-2 6 -3 8 10 9 -8 3 9 9
2 10 3 5 10 1 -9 4 -7 3
9 1 -3 -5 7 5 2 0 -7 3
2 1 10 -8 -8 6 -8 -3 -5 0
-2 -10 -7 9 -9 -1 -9 10 -10 -8
6 -1 -4 3 -7 7 -1 -8 -10 -5
-3 2 0 -5 -4 -10 -10 0 3 -7
-1 5 -2 4 -6 9 -3 -1 -7 -2
3 2 0 -10 8 -7 -5 -3 10 -5
Положительных 44, отрицательных 51