Количество в байтах, скорость - в битах в секунду.
program raf105;
var
a:array[1..6] of integer;
n,i: integer;
begin
write('Введите шестизначное число: ');
readln(n);
a[1]:= n div 100000;
a[2]:= (n div 10000) mod 10;
a[3]:= (n div 1000) mod 10;
a[4]:= (n div 100) mod 10;
a[5]:= (n div 10) mod 10;
a[6]:= n mod 10;
write('Вывод: ');
for i:= 1 to 6 do
write(a[i],' ');
end.
<h3>PascalABC 3.4.2</h3>
№1
=ЕСЛИ(И( A2>=160; B2<13);"Принят";"Нет")
№2
3
№3
=$C5*2
Program TablMul;
Const Size = 7;
Var
Ball: array[1..Size] of real;
Ocenka: array[1..Size] of integer;
Counter: integer;
Begin
Counter := 1;
while (Counter <= Size) do
begin
Write('Введите балл ', counter, ' ученика: ');
Readln(Ball[Counter]);
Counter := Counter + 1;
end;
Counter := 1;
Repeat
if (Ball[Counter] > 90) then
Ocenka[Counter] := 5
else if (Ball[Counter] >= 75) and (Ball[Counter] < 90) then
Ocenka[Counter] := 4
else if (Ball[Counter] >= 50) and (Ball[Counter] < 75) then
Ocenka[Counter] := 3
else
Ocenka[Counter] := 2;
Counter := Counter + 1;
Until (Counter > Size);
Writeln();
for var i := 1 to Size do
Writeln('Оценка ', i, ' ученика: ', Ocenka[i]);
End.
1) В десятичной:15408324071457