Программа на языке 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 тура первый участник
Существуют три вида циклов <span>на языке Pascal:
1) цикл с параметром (с известным числом повторений) for; используется, когда известно, сколько раз выполнится цикл;
2) цикл с предусловием while; используется, когда неизвестно число выполнений цикла и цикл выполняется, пока условие верно;
3) цикл с постусловием repeat; </span>используется, когда неизвестно число выполнений цикла и цикл выполняется до истинности условия.<span>
Примеры.
1) найти сумму первых 10 натуральных чисел:
s:=0;
for i:=1 to 10 do s:=s+i;
write(s);
2) найти сумму всех натуральных четных чисел в промежутке от 7 до 45:
s:=0; i:=8;
while i<45 do
begin
s:=s+i;
i:=i+2
end;
write(s);
3) </span>найти сумму всех натуральных четных чисел в промежутке от 7 до 45:
s:=0; i:=8;
repeat
s:=s+i;
i:=i+2
until <span> i>45;</span>
write(s);
Если препятствий нет, то
использовать Робот
алг
нач
нц пока справа свободно
вправо
кц
нц пока сверху свободно
вверх
кц
закрасить
нц пока снизу свободно
вниз
закрасить
кц
нц пока слева свободно
влево
закрасить
кц
кон<span>
</span>
Ответ:
1) ('1'+'3')+('2'+'3') - '3' = 3000 (фрегат | эсминец)
'1' + '3' = 2000 (фрегат)
'2' + '3' - = 2500 (эсминец)
'3' - ?
2000 + 2500 - '3' = 3000
'3' = 1500
2) 2500
3)
467 − 274 + 108 = 301
val = 100
while val > 0:
n=int(input("Введи число "))
if (n>val):
print ("Значение будет некорректным")
continue
val = val-n
print (val)