Ответы на вопрос:
Var a,b,c: integer; begin writeln('введите число'); readln(a); b: =2; while (a mod b < > 0) do begin b: =b+1; end; writeln(b); end.
Program xz; var y,x,b: real; begin witeln('введите два числа'); readln(x,y); y: =x/b; writeln('ответ ',y); end.
Популярно: Информатика
-
Stepancherk07.06.2020 22:51
-
malenkayakreyz02.04.2023 15:39
-
СнежанаВолк06.09.2022 15:30
-
Sofa22Bas04.01.2021 07:04
-
WhiteRos09.04.2020 11:38
-
knestor14.06.2022 13:41
-
1004018.03.2020 17:14
-
MarijaKitty07.05.2023 21:18
-
gggrrraaa28.06.2021 13:20
-
alenaalefirova04.02.2020 07:31