Расписываешь число по степеням основания СС:
если целая часть, то последнюю цифру умножаешь на основание СС в нулевой степени+предпоследняя на основание в 1 степени+...
если дробная часть, то первую цифру после запятой умножаешь на основание в -1 степени, вторую на основание в -2 степени+ ...
а)827
б)1031
в)181,5
г)262,65625
д)Пример перевода 671,24(8)=
= 1+56+384+0,25+0,0625=441,3125(10)
е)1050,375
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
if ReadlnString.ToLower.Contains('кот') then Print('МЯУ')
else Print('ГАВ')
end.
<h2>Примеры</h2>
Извините, пожалуйста, вы не подскажете, который час?
МЯУ
Кто я? кто
ГАВ
Program primer;
Var i,n,k,chislo:integer;
Begin
cls;
write(' skolko chisel budem vvodit ? '); readln(n);
write('chislo dlia poiska : '); read(k);
for i:=1 to n do
begin
readln(chislo);
if ((chislo mod 10 = k) or (chislo div 10 = k)) then
write('chislo ',chislo,' udov uslovie.. ')
else write('chislo ',chislo,' NE udov uslovie.. ');
writeln;
end;
readln;
End.
PascalABC.NET 3.2 (сборка 1482 от 13.06.17)
Begin
Write('Количество отрицательных чисел: ',ReadSeqReal('Введите три числа:',3).Where(x->x<0).Count)
End.
#include<iostream>
using namespace std;
int main(){
int n, a, b, c;
cin>>n;
a = n / 100;
b = n /10 % 10 ;/* осторожно, у разных компиляторов разный порядок действий, если не робит, тогда вот так b = n/10; b = b %10 */
c = n % 10;
if (a%2 != 0) && (b%2 != 0) && (c%2! = 0) cout<<0<<endl;
else cout<<1<<endl;
return 0;
}