Решите ,используя while.как можно подробней. даны положительные числа a и b (a > b). на отрезке длины a раз- мещено максимально возможное количество отрезков длины b (без нало- жений). не используя операции умножения и деления, найти количество отрезков b, размещенных на отрезке a.
129
380
Ответы на вопрос:
var a,b,k: integer; begink: =0; {обнуляем счетчик}
write('a='); read(a); {вводим число а}write('b='); read(b); {вводим число в}while a> b do {пока а больше в выполняем действия}begina: =a-b; {отрезку мы присваиваем значение, так скажем, отрезка}k: =k+1; {счетчик увеличивается на единицу}end; writeln('k=',k); {выводим количество раз}end.
Program igra; var a,b,c: integer; beginwriteln('правда или действие? если выбираете правду, введите 1, если действие 2'); read(a); if a=1 then writeln('сколько тебе лет? ')else writeln('подтянись 5 раз'); writeln('правда или действие? если выбираете правду, введите 1, если действие 2'); read(a); if a=1 then writeln('сколько стоит твой компьютер? ')else writeln('пробеги вокруг техникума 5 раз'); writeln('правда или действие? если выбираете правду, введите 1, если действие 2'); read(a); if a=1 then writeln('какой человек самый неприятный для тебя? ')else writeln('не садись целый час'); end.
Популярно: Информатика
-
MisterGamerTT25.01.2023 03:27
-
kapysta12321.09.2021 23:45
-
maksytova0925.01.2021 15:32
-
sagunush1301.12.2022 21:34
-
kino201127.03.2023 01:16
-
p0m41k16.10.2022 04:34
-
liza139216.12.2020 02:16
-
zavet342721.01.2020 01:12
-
renger10003.02.2020 23:44
-
dima101525.09.2020 04:14