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.
Ответ:
Объяснение:
print("Введите пять слов через пробел")
inp = input()
words = inp.split()
print("You have entered: {0}, {1}, {2}, {3}, {4}".format(words[0], words[1], words[2], words[3], words[4]))
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a:=ArrRandom(12,10,45); a.Println;
var p:=a.Where(x->x mod 5=0).Aggregate(1,(a,b)->a*b);
if p=1 then Writeln('Нет элементов, кратных 5')
else Writeln('Произведение кратных пяти элементов: ',p)
end.
<u><em>Тестовое решение:</em></u>
26 35 31 28 22 23 26 17 32 40 42 22
Произведение кратных пяти элементов: 1400
В <span>байте 8 бит, 1 символ кодируется одним байтом, соответственно урок - 4 байт... Но это зависит от кодировки, в разных кодировках символ занимает разное количество байт.</span>
//PascalABC.Net 3.1.0.1200
var
x0, xk, h, e, x, a, s: real;
i: integer;
begin
readln(x0, xk, h, e);
x := x0;
repeat
a := 1 / 2 / 3;
s := a;
i := 0;
repeat
i := i + 1;
a := a * (-1) * x * x / (2 * i + 1) / (2 * i);
s := s + a;
until abs(a) < e;
writeln(s:15:5, ' ', (sin(x) / x):15:5);
x := x + h;
until x >= xk;
end.