Информатика Найдите ошибки а) Y := 0; For X := 0.1 to 0.9 do Y := Y + Sіn (X);
б) K := 81; Y := 1; For і := 1 to Sqrt (K) do Y := Y * 2;
в) K := 0; For і := 9 to 1 do K := K * 2;
235
437
Ответы на вопрос:
Program circle; var r,s,l: real; begin write('введите радиус '); read(r); s: =pi*sqr(r); l: =pi*r*2; writeln('площадь окружности = ',s,', а длина = ',l); end.
Популярно: Информатика
-
taniamishanina06.03.2022 07:47
-
ДимаБум07.01.2022 15:10
-
karinakovalenko214.05.2020 13:06
-
Alex2005G9108.05.2021 12:11
-
akink201719.05.2022 10:57
-
gulyaaxundova06.11.2021 14:19
-
TiltPro19.05.2021 20:52
-
Pollyru02.01.2021 07:50
-
шплоп201.09.2021 23:55
-
timofei201807.01.2020 21:02