100111(в двоичной степени)-39(в десятичной).
-Про номеруй каждую цифру числа с права на лево с 0.
-умнож каждую цифру числа на 2(в степени стоящим над числом.
-выполнить сложение произведения.
-запиши результат.
1•2(в пятой степени)+0:2(в четвёртой степени)+0•2(в третей)+1•2(во второй)+1•2(в первой)+1•2(в нулевой)=32+0+0+4+2+1=39(в десятичной)
Книга - это уже источник инфо. Скорее всего, ее надо порекомендовать, опубликовать и т.д.
Program qwerty;
var s:string; p,n,i:integer;
begin
write (`введите слово`);readln(s);
p:=0;
for i:=1 to n:=length(s) div 2
if s[i]=s[n-i+1] then p:=1;
if p=1 then write(`слово полиндром`) else
write(`не полиндром`);
readln;
end.
(не суди за ошибки :D)
#include "stdafx.h"#include <iostream>#include <windows.h>#include <ctime>using namespace std;int main(){ SetConsoleCP(1251); SetConsoleOutputCP(1251); srand(time(0)); int core[5][5]; int t, n; bool cf, p; for (int i = 0; i < 5; i++) { for (int j = 0; j < 5; j++) { t = 0 + rand() % 2; core[i][j] = 0 + rand() % 20; if (t == 1) { core[i][j] = -core[i][j]; } cout << " " << core[i][j] << " "; } cout << endl; } cout << endl; cout << "Последняя цифра " << endl; cin >> n; for (int i = 0; i < 5; i++) { for (int j = 0; j < 5; j++) { if (core[i][j] % 10 == n) { cf = true; } if (core[i][j] > 0) { p = true; } } } if (cf == true) { cout << "Число, оканчивающееся на цифру " << n << " есть"<< endl; } else { cout << "Числа, оканчивающегося на цифру " << n << " нет" << endl; } if (p == true) { cout << "Положительное число есть" << endl; } else { cout << "Положительных чисел нет " << endl; }}
Измените тип переменных n и k на integer:
function Xfact(o: integer): integer;
var
factorial: longint;
i: integer;
begin
write('o = ');
readln(o);
factorial := 1;
for i := 2 to o do
factorial := factorial * i;
end;
var
c: real;
n,k:integer;
begin
writeln('Введите число n: ');
readln(n);
writeln('Введите число k: ');
readln(k);
c := Xfact(n) / Xfact(n - k) * Xfact(k);
writeln('C = ', c);
end.
