Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите в pascal
Помогите в 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 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите в pascal
Страница 1 из 11
Поиск: