
Saith
6 год назад
Выведите true если из 3 цифр один ровно 1, потивном случе false
ОТВЕТЫ

Доримедонт
Jul 4, 2019
Pascal:
var a,b,c:integer;
begin
readln(a,b,c);
if a=1 then writeln(true) else
if b=1 then writeln(true) else
if c=1 then writeln(true) else
writeln(false) ;
end.
var a,b,c:integer;
begin
readln(a,b,c);
if a=1 then writeln(true) else
if b=1 then writeln(true) else
if c=1 then writeln(true) else
writeln(false) ;
end.
6
Смежные вопросы: