Uses crt;
var
k: integer;
x, s, a: real;
begin
ClrScr;
Write('x=');
Readln(x);
a := x;
s := a;
k := 3;
while k < 13 do
begin
a := a * (-1) * x * x / k / (k - 1);
s := s + a;
k := k + 2;
end;
writeln('s=', s:5:6);
Readkey;
end.
//C++ - язык програмирования(не Pascal)
#include <iostream> //чтобы выводить на экран
int main() //тело программы
{
int a,b; //те числа(объявление переменных)
std::cin>>a; //ввод первого числа
std::cin>>b; //ввод второго числа
std::cout<<((int)(a/b))<<std::endl; //(int)х - преобразовать х в целое число(отбросить //дробную часть)
//std::cout<< - вывод
//std::endl - переход на следующию строчку
system("PAUSE"); //чтобы программа сразу не завершалась
return 0;
}
// // - коментарий
P.S ответь, пожалуйста, на моё сообщение.
Он бы завоевал мир и выгнал бы людей с земли, или сделал их рабами, даже сейчас заметно как компьютер завоевывает мир. Даже не умея думать и говорить.
Ответ:
5 бит
Объяснение:
N=2^i, где N-мощность алфавита(кол-во символов), i -вес 1 символа=> 32=2^5
Program q;
uses crt;
var a : integer;
begin
for a:=1 to 5 do
begin
write('Имя ');
end;
end.