Добрый день
Заполните пропуски и нарисуйте линию с начальными координатами (10, 20) и конечными координатами (50, 100):
112
478
Ответы на вопрос:
Var a,k,sum: integer; begin while (sum < 100) do begin readln(a); k: =k+1; sum: =sum+a; end; writeln(k); end.
Популярно: Информатика
-
зика2301.07.2020 04:48
-
Вероникалобова25.02.2022 06:17
-
tatu26126.01.2022 10:39
-
Сталкер02720.06.2020 23:45
-
dimadi109.05.2023 14:16
-
Kov345626.06.2020 13:47
-
online1931.12.2022 14:40
-
Соня12110302.02.2022 03:37
-
bodiafan21.05.2021 11:57
-
azalhanovahalid05.02.2023 14:44