Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Помогите в pascal
Даны числа х и у если эти числа не равны друг другу, то замените их нулями в противном случае заменить их единицами
1 | Автор: asdz0r | 2013-11-14, 15:13   |  Репутация: [ + 0 ]
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
2 | Автор: Berestovskiy | 2013-11-14, 15:28   |  Репутация: [ + 211 ]
вместо "!=" нужно "<>"

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
3 | Автор: Berestovskiy | 2013-11-14, 15:50   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
3 | Автор: Berestovskiy | 2013-11-14, 15:50   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: