<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var n:=ReadInteger('Введите четырехзначное натуральное число:');
var p:=1;
while n>0 do begin
p:=p*(n mod 10);
n:=n div 10
end;
Writeln('Произведение цифр числа равно ',p)
end.
Открываете Компьютер и там должно Дисковод DVD-RW (E:)
На него нажимаем, и там будет вся информация которая есть в диске.
Пусть S - ср.арифм. S := (x1 +x2)/2
k := k-1
i := i+1
пусть N - количество тетрадей, M - цена одной тетради, H - цена одной обложки, S - стоимость всей покупки, тогда S := (M+H)*N
<span>Этот принцип впервые применила фирма IBM, что повлияло на ускорение темпов развития вычислительной техники.</span>
Годовая ставkа-0,07
выплата 41000
общая сумма 370000
kол-во лет выплат 6,1