Предмет:
ИнформатикаАвтор:
анонимvar i, x: integer; // объявляем переменные целочисленного типа. y, sum : real; // объявляем переменные вещественного типа.begin y := 10; // пробег спортсмена в первый день. while i < 6 do // в цикле определяем пробег спортсмена со 2-го по 7-й день. begin y := y + (y / 100 * 10); // пробег спортсмена за i-й день. sum := sum + y; // считаем сумму километров. i := i + 1; // счетчик дней недели. end; write (\'В сумме за 7 дней спортсмен пробежал: \',round(sum + 10,2), \' км.\'); //вывод на экран.end.
Автор:
esther94Добавить свой ответ
Предмет:
ИнформатикаАвтор:
анонимОтветов:
Смотреть
Предмет:
ИнформатикаАвтор:
анонимОтветов:
Смотреть
Предмет:
ИнформатикаАвтор:
анонимОтветов:
Смотреть
Предмет:
ИнформатикаАвтор:
анонимОтветов:
Смотреть