Напишите программу на turbo pascal : найти частное двух целых чисел вводимых с клавиатуры

134

218

Посмотреть ответы 2

Ответы на вопрос:

дан55566

Информатика

4,6(33 оценок)

Var x,y: integer; z: real; {при делении всегда получаем не целое число} begin readln(x,y); //далее либо z: =x/y, либо z: =x/y, в зависимости от того, что на что делить writeln(z); end.

LORDytGucci

Информатика

4,8(59 оценок)

Xувеличивается в цикле с 1 до 4, каждый раз на 1. y каждый раз увеличивается в 2 раза, начиная с 1 и до 2^4 = 16. 1) тело цикла исполнится 4 раза. 2) x примет значение 5. 3) y примет значение 16. 4) если написать x < = 5, то тело цикла исполнится 5 раз. на выходе будет x = 6, y = 32. 5) если написать x > = 5, то тело цикла не будет исполнено ни разу, потому что условие сразу не выполняется. 6) если написать x > 0, то программа зациклится. цикл будет исполняться бесконечно, потому что x всегда > 0. 7) если убрать команду x: =x+1, то программа тоже зациклится. выхода не будет, потому что x всегда остается равным 1 < 5. 8) если написать команду x: =x+2, то тело цикла исполнится 2 раза: при x : = 1 и при x : = 3. на третий раз станет x = 5 и будет выход из цикла. 9) если написать команду x: =x-1, то программа зациклится. выхода не будет, потому что x будет уменьшаться и всегда останется < 5.