|
Помогите в pascal
|
|
|
Даны числа х и у если эти числа не равны друг другу, то замените их нулями в противном случае заменить их единицами
|
|
|
|
var
x,y:integer;
begin
read(x,y);
if (x != y) then begin x:=0;y:=0;end else begin x:=1;y:=1;end;
writeln(x,' ',y);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
вместо "!=" нужно "<>"
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
