ПАСКАЛЬ Abc
придумать и решить задачу с применением условия "or".

1

Ответы и объяснения

2013-04-28T09:33:14+00:00

пишу как в Турбо Паскале 7.0(они не много отличаются)

{С Клавиатуры вводится 3-x значное число. Разбить это число на цифры. Если какое-либо из чисел равно 0, то определите квадратный корень суммы 1 и 2 числа в противном случае напишите " нулей нет"}

 

program z1;

uses crt;

var x,y,z,a:integer;

begin

clrscr;

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.