1,11,111,1111,11111,111111....
10,100,1000,10000,100000...
101,111,101,111,101,111,101...
В планьшете, в телефоне, в телевизорах
Const
n = 5;//Емкость памяти типа "кольцо"
type
Ring = array[1..n] of integer;
var
ir: integer;
R: Ring;
procedure Add2Ring(a: integer);
// Добавляет в кольцо очередной элемент
begin
if ir = n then ir := 1
else ir := ir + 1;
R[ir] := a
end;
var
i, S, d: integer;
P: longint;
begin
S := 0;
ir:=0;
writeln('Вводите числа, 0 - конец ввода');
for i := 1 to n do
begin
readln(d);
S := S + d;
Add2Ring(d)
end;
repeat
readln(d);
if d <> 0 then Add2Ring(d);
until d = 0;
P := 1;
for i := 1 to n do P := P * R[i];
writeln('Сумма первых ', n, ' чисел: ', S, ', произведение последних: ', P)
end.
Газета - ин( бумага), текст
почтовая открытка- ин( бумага/картон), текст , .картинка
билет ин(бумага)текст
табл с ним дома ин(железная пластина) текст
сфорн к мф ин(CDдиск) вилеозапись
1
2
3
4
5
6
7
8
9
<span>uses
Arrays;
begin
Randomize;
var a := CreateRandomIntegerArray(ReadLnInteger('Размер массива: n='), -10, 100);
WriteLn('Создан массив случайных чисел: '); a.Writeln(' ');
for var i := 0 to a.Length-1 do if a[i] > 0 then a[i] := 0;
WriteLn('произведена замена: '); a.Writeln(' ');
end.</span>