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

Question

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

Answer 1

85

gray1988

06 марта 2023

Пишу как в Турбо Паскале 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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: