Предмет:
ИнформатикаАвтор:
аноним1)
program translate;var m1, m2, s: integer;beginwriteln(\'Введите границы (через пробел): \');readln(m1, m2);for i: integer:= m1 to m2 do writeln( i, \' мин = \', i * 60, \' сек\')end.
2)program skier;var d_day, d_sum: real;n, k: integer;beginwrite(\'Количество дней - \');readln(n);d_day:=10;d_sum:=10;k:=1;while k < n do begind_day:= d_day + 0.1 *d_day;d_sum:= d_sum +d_day;k:=k +1end;writeln(\'Суммарный путь за \', n, \' дней - \', d_sum:8:2, \' км\')end.
Автор:
zackeryharrellДобавить свой ответ
Предмет:
ИнформатикаАвтор:
анонимОтветов:
Смотреть
Предмет:
ИнформатикаАвтор:
анонимОтветов:
Смотреть
Предмет:
ИнформатикаАвтор:
анонимОтветов:
Смотреть
Предмет:
ИнформатикаАвтор:
анонимОтветов:
Смотреть