Const eps=1e-8; var a,b,c:real; s1,s2,s3:integer; begin read(a); read(b); read(c); if a>0 then s1:=s1+1; if b>0 then s1:=s1+1; if c>0 then s1:=s1+1; if a<0 then s2:=s2+1; if b<0 then s2:=s2+1; if c<0 then s2:=s2+1; if frac(a)<eps then s3:=s3+1; if frac(b)<eps then s3:=s3+1; if frac(c)<eps then s3:=s3+1; writeln('Число положительных чисел = ',s1); writeln('Число отрицательных чисел = ',s2); writeln('Число целых чисел = ',s3); end.
/* Для подсчета целых чисел использовалась функция frac - она возвращает дробную часть числа. При сравнении дробных чисел полезно отсекать разряды после скажем 8 знака после запятой, что и было сделано путем введения константы eps . */
Давай сначала переведем это все в 10-ную. Начинаем с единицы и смотрим, если дальше идет 0, то просто умножаем результат на 2, но т.к. у нас пока только 1, то умножаем 1 на 2 и получаем 2. Дальше идет 1, теперь нам надо результат умножить на 2 и прибавить 1. Т.е. каждый раз когда ты видишь 0, то просто умножь на 2, а если видишь 1, то после умножения прибавь один. Так у нас получается 1389
Теперь перевод в 16 систему полученое число нужно делить на 16 1389/16=86, остаток = 13, он нам и нужен. На 16 языке, 10=А, 11=B 12=C, 13=D, 14=E, 15=F. 16 там нету, ибо система ведет отчет с нуля. Запоминаем D. 86/16=5, остаток 6. Теперь ставим наши цифры/буквы в обратном порядке(так надо делать всегда), и получаем 56D ОТВЕТ: 56D
var a,b,c:real;
s1,s2,s3:integer;
begin
read(a);
read(b);
read(c);
if a>0 then s1:=s1+1;
if b>0 then s1:=s1+1;
if c>0 then s1:=s1+1;
if a<0 then s2:=s2+1;
if b<0 then s2:=s2+1;
if c<0 then s2:=s2+1;
if frac(a)<eps then s3:=s3+1;
if frac(b)<eps then s3:=s3+1;
if frac(c)<eps then s3:=s3+1;
writeln('Число положительных чисел = ',s1);
writeln('Число отрицательных чисел = ',s2);
writeln('Число целых чисел = ',s3);
end.
/* Для подсчета целых чисел использовалась функция frac - она возвращает дробную часть числа. При сравнении дробных чисел полезно отсекать разряды после скажем 8 знака после запятой, что и было сделано путем введения константы eps . */