Предмет: Информатика,
автор: bobr1337
Помогите записать задачу в Turbo Pascalе
Начав тренировки, лыжник в первый день пробежал 10км. Каждый следующий день он увеличивал пробег на 10% от пробега предыдущего Определить:
а) В какой день он пробежит больше 20км
б) В какой день суммарный пробег за все дни превысит 100км
Ответы
Автор ответа:
0
program ncdkj;
uses crt;
var a,b,p,d,sd:integer;
begin
clrscr;
a:=10;
b:=10;
d:=1;
sd:=1;
p:=10*0,1;
repeat
a:=a+p;
d:=d+1;
until a>20;
repeat
b:=b+p;
sd:=sd+1;
s:=s+b;
until s>100;
case sd mod 7 of
0:writeln('сумма 100 км в 7');
1:writeln('сумма 100 км в 1');
2:writeln('сумма 100 км в 2'); И так до шести
case d mod 7 of
0:writeln('20 км в 7');
1:writeln('20 км в 1');
2:writeln('20 км в 2'); И так до шести
readln;
end.
Надеюсь второе правильно понял, вроде должно работать
Интересные вопросы
Предмет: Математика,
автор: sofakozlova15
Предмет: Музыка,
автор: maksim10g
Предмет: Қазақ тiлi,
автор: 1233821544
Предмет: Физика,
автор: юльчик06
Предмет: Геометрия,
автор: Renatik063