Задание:
ПАСКАЛЬ Abcпридумать и решить задачу с применением условия "or".
Решение:
Пишу как в Турбо Паскале 7,0 (они не много отличаются) {С Клавиатуры вводится 3-x значное число. Разбить это число на цифры. Если какое-либо из чисел равно 0, то определите квадратный корень суммы 1 и 2 числа в противном случае напишите " нулей нет"} program z1; uses crt; var x,y,z,a: integer; beginclrscr; write (a='); readln (a); x: =a div 100; y: =(a mod 10) mod 10; z: =a mod 10; if (x=0) or (y=0) or (z=0) then b: =SQRT (a+b) else writeln ('нулей нет'); writeln (b); readln; end.
Знаете другой ответ?