Сделайте , максимальное кол-во
Деля2363
1
21.05.2019 11:47
0
Другие вопросы по теме Информатика
10121945
22.04.2020 20:23
kristina1861
22.04.2020 20:23
Fantom511
04.05.2021 21:44
oksana1111156970
04.05.2021 21:43
maksalina2
04.05.2021 21:35
Vitos325
04.05.2021 21:29
mashtaleroksana
04.05.2021 21:24
kakaha228oleg
04.05.2021 21:23
Популярные вопросы
- Впервый раз мастер получил тридцать три целых одну третью процента...
3 - Как медведь за арбузом в огород залез...
1 - Придумать пословицу к пословице,один за всех и все за одного,2 класс...
3 - Реши уравнения 1032 - х= 360 ÷ 9 х ÷ 8 = 8500-957...
1 - Почему герои из рассказа мальчики решились на побег...
3 - Книга дороже тетради на 80 р. за книгу и тетрадь заплатили 120р.сколько...
2 - Что из перечисленного произошло в результате революционых событий...
3 - Какую часть урожая положили в карзину если собрали 24 кг яблок 8...
1 - Найдите значения выражения 2 5/14*2 6/11-9/25*1 2/3=...
3 - Составить предложения из слов чапка, пушистый хвост,мыши,рыжий кот,дача,гриша,чулан,ловил...
3
var y,x:longint;
begin
read(x);
if x<0 then y:=-1;
if x=0 then y:=0;
if x>0 then y:=1;
writeln(y);
end.