Даны действительные числа x, y, z. сколько среди них отрицательных? паскаль abc

221

253

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

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

fghjik

Информатика

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

Var x,y,z: real; k: byte; begin k: =0; write('x = '); readln(x); if x< 0 then k: =k+1; write('y = '); readln(y); if y< 0 then k: =k+1; write('z = '); readln(z); if z< 0 then k: =k+1; writeln('количество отрицательных,среди введённых: ',k); end.

Даниад

Информатика

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

Решение 1-й : //pascalabc.net //naaman var i, n : integer; begin i : = 0; repeat write('введите число > '); readln(n); if (n > 0) then if (n mod 2 = 0) then if (n mod 3 = 0) then i : = i + 1; until (n = 0); writeln('количество чётных чисел, кратных 3: ', i) end. для решения второй нужно заменить (n mod 2 = 0) на (n mod 2 = 1) и (n mod 3 = 0) на (n mod 7 = 0).