Дано четырехзначное число. Составь программу, которая находит сумму второй(сотня) и четвертой(единица) цифры этого четырехзначного числа
136
203
Ответы на вопрос:
Const d: real = 10; // число км в день p: real = 1.12; // % m: integer = 30; // число дней в месяце n: integer = 25; // макс дистанция в условии var c: integer; s, x: real; begin x : = d; for c : = 1 to m do begin s : = s + x; x : = x * p; end; writeln('в месяц пробегает: ', s); x : = d; c : = 0; while (x < n) do begin c : = c + 1; x : = x * p; end; writeln('нужно ', c, ' дней'); end.
Популярно: Информатика
-
ElyalyaЗ24.06.2023 20:36
-
3422425323.09.2020 14:38
-
cadova18.11.2020 16:49
-
tomakor11.09.2021 12:02
-
limon4ikru18.01.2023 11:39
-
Kolyan09710.04.2023 22:56
-
MashaBelous04.07.2020 19:27
-
ashixminas22.02.2020 07:48
-
Dasulya2101.11.2020 20:25
-
dvaleeva4511.12.2021 06:43