Ответы на вопрос:
Var x1, x2, n: integer; y: real; begin write('введите х1: '); read(x1); n: =x1; write('введите х2: '); readln(x2); while n< > (x2+1) do begin y: =n/3+2; writeln('y = ',y); n: =n+1; end; end.
Популярно: Информатика
-
яильяатыилья15.04.2020 00:24
-
stoun201815.10.2020 07:49
-
Sashakosix20.01.2023 11:22
-
karinkuus03.09.2022 01:25
-
stas95201121721728.05.2021 11:56
-
Анна23080117.04.2022 16:11
-
alenayugova26Alena18.02.2023 16:58
-
Sashas1627.11.2022 10:17
-
царапина12315.06.2021 14:55
-
toteara114.05.2022 17:57