флешки, карты памяти, внешние жесткие диски емкостью от 512мб, до 2-5Тб и выше
Флешки (1гб, 2Гб, 4Гб, 8Гб, 16, 32, 64, 128,)
Const
R=14;
var
i,k:integer;
W:array[1..R] of longint;
begin
Write('Введите число членов последовательности (1-',R,'): ');
Readln(k);
if (k<1) or (k>R) then Writeln('Вы ввели неверное значение')
else begin
Write('Члены последовательности: 1');
w[1]:=1;
for i:=2 to k do
begin
w[i]:=5*w[i-1];
Write(', ',w[i])
end;
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
Введите число членов последовательности (1-14): 14
Члены последовательности: 1, 5, 25, 125, 625, 3125, 15625, 78125, 390625, 1953125, 9765625, 48828125, 244140625, 1220703125
Проверено в PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
var
s: integer;
begin
for var i := 300 to 400 do
if (i mod 4) = 0 then
s := s + 1;
Print(s);
end.
Процессор, внешняя память, внутренняя память, устройство управления, манитор, принтер, мышь