Программа на языке Pascal
var
k,u,u1,u2:real;
begin
k:=1;
u1:=25;
u2:=35;
while (u1<100) or (u2<100) do
begin
u1:=u1+u1*0.07;
u2:=u2+u2*0.05;
k:=k+1;
end;
writeln('Количество туров:',k);
if u1>=100 then writeln(1) else writeln(2)
end.
ОТвет 23 тура первый участник
<em>// PascalABC.NET 3.2, сборка 1412 от 25.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadSeqIntegerWhile('Вводите, 0- конец:',k->k<>0).ToArray;
Writeln('П=',a.Aggregate(BigInteger(1),(x,y)->x*y))
end.
<u>Пример</u>
Вводите, 0- конец: 61 1 -86 -23 -35 -57 96 -54 -3 -90 -12 -62 3 -47 27 90 85 0
П=7300372606875554895360000
#include <iostream>
using namespace std;
int main()
{
int n, p, i;
string m;
cout << "Введите n: ", cin >> n, cout << "\n";
for (i=2; (i<=5)&&((n<100)or(n>999));i++) {
cout << "Введите n: ", cin >> n, cout << "\n";
}
if ((n>=100)and(n<=999)){
p = (n/100)*(n/10%10)*(n%10);
cout << p;}
else cout << "Ошибка";
return 0;
}
Пример:
<span>Введите n: 12
Введите n: 7623
Введите n: 456
120</span>
<span>Цикл с предусловием </span>
<span><span>Цикл с постусловием</span></span>
<span><span><span>Цикл со счётчиком</span></span></span>
<span>оно может быть выражено в разных </span><span>языках</span>