Урок 11(Дорешанные задачи 8, 9, 10)
Primary tabs
8)Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Считайте и выведите на экран значения первых трех отрицательных нечетных чисел. После чего завершите цикл.
var a,i: integer; begin while i < 3 do begin writeln('vvedite cislo'); readln(a); if (a < 0) then begin writeln(a); i := i + 1; end; end; end.
9)Пользователь вводит в числа последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.Примечание: в одном витке цикла должен быть только 1 readln().
var a,b,c,i,d: integer; begin i := 1; while (i <= 3) do begin writeln('vvedite cisla'); readln(d); if (i = 1) then a := d else if (i = 2) then b := d else c := d; i := i + 1; end; writeln(a,b,c); end.
10) Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Сохраните в переменные первые три отрицательных нечетных числа, сложите их, выведите сумму на экран и завершите цикл.
var a,b,c,i,d: integer; begin i := 1; while (i <= 3) do begin writeln('vvedite cislo'); readln(d); if (d < 0) and (i = 1) then begin a := d; i := i + 1; d := 0; end; if (d < 0) and (i = 2) then begin b := d; i := i + 1; d := 0; end; if (d < 0) and (i = 3) then begin c := d; writeln(a + b + c); i := i + 1; end; end; end.
- Log in to post comments
- 652 reads