Turbo Pascal.
5-9 класс
|
Спортсмен пробежал 10 км в первый день.Каждый следующий день он увеличивал норму на 10% от нормы предыдущего дня. Определить:
a) Через сколько дней он будет пробегать не более 20 км?
б) Сколько километров он пробежит на 7-ой день?
var k,L,N:real;
i:integer;
begin
read(L);
read(N);
k:=0.0;
for i:=1 to N do begin
k:=k+L;
L:= L*1.1;
end;
writeln(k);
end.
на C/C++
int main()
{
double k=0.0, L, N;
std::cin>>L>>N;
for(int i=0; i<N; i++)
{
k += L;
L *= 1.1;
}
cout<<k;
Другие вопросы из категории
(-10:10)
Program chisla;
... дальше чё помогите пожалуйста!!
– музее. Планетарий и цирк посетили 5 студентов; планетарий и музей -3; цирк и музей -1. Сколько студентов в группе, если никто не
успел посетить все три места, а три студента не посетили ни одного
места? Напишите пожалуйста решение.
в качестве значений цифр решили брать положения этих стрелок (произвольные, не зависящие друг от друга – нет механической связи) относительно секундной шкалы (12 делений – значения от 0 до 11,вертикальное положение любой стрелки соответствует нулевому значению) и закадированные в соответствующей системе счисления, то есть в системе счисления использующей строго такое же количество цифр. При шифровании получается число, каждый из разрядов которого может принимать значение от 0 до 11. Младший разряд шифрованного числа соответствует значению циферблата, указываемому секундной стрелкой, средний – минутной, старший – часовой. Зашифрованное число перевели в десятичную систему счисления.
Читайте также
if A>B then S: = A+B;
writeln (S);
Варианты ответов:1)5 ;2)6; 3)7; 4)8
2. Какое значение переменной S будет напечатано после выполнения фрагмента программы, записанной на языке программирования PASCAL:
S: =1;
N: =1;
while N<=3 do
begin
S: = S*N;
N: = N+1;
end;
writeln(S);
Варианты ответов: 1)2 ; 2)1; 3)0; 4)4
в результате работы следующего фрагмента программы:
var k,s:integer;
begin
s:=0;
k:=1;
while k<11 do begin
s:=s+k;
k:=K+1;
end;
write(s);
end.
1.1 Запишите этот же фрагмент с помощью оператора Repeat...until
2) Значения двух массивов A[1..100] и B[1..100] задаются с помощью следующего фрагмента программы:
for n:=1 to 100 do
A[n]:=n-10;
for n:=1 to 100 do
B[n]:=A[n]*n;
Сколько элементов массива B будут иметь положительные значения?
а)10 б)50 в)90 г)100