1.с клавиатуры вводится действительное число a.найти его квадратный корень. 2.с клавиатуры вводится действительное число p.записать отдельно его целую часть c. составить программу.
Ответы
#include < iostream>
#include < string>
#include < regex>
bool is_hexadecimal(const std: : string& str) {
return std: : regex_match( str, std: : regex("^(0x|0x)? [a-fa-f0-9]+$") );
}
int main() {
std: : string str;
std: : cout < < "please enter hexadecimal number: ";
std: : cin > > str;
if (is_hexadecimal(str)) {
std: : cout < < "the entered string is hexadecimal\n";
}
else {
std: : cout < < "the entered string is not hexadecimal \n";
}
return 0;
}
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
var x,y : array of integer;
j,i,o,e,n1,n2 : integer;
begin
writeln('первый массив');
writeln('сколько нулей? ');
readln(o);
writeln('сколько единиц? ');
readln(e);
writeln('с какого числа начинаются единицы по размеру массива? ');
readln(n1);
writeln('с какого числа начинаются нули по размеру массива? ');
readln(n2);
if (n1 > n2) and (e > o) then
begin
setlength(x,(n1+e));
end
else
begin
setlength(x,(n2+o))
end;
for i: = 0 to 10 do
begin
write('-': 2);
end;
writeln();
writeln('заполнение первого массива');
for i: = 0 to 10 do
begin
write('-': 2);
end;
writeln();
if (n1 > n2) and (e > o) then
begin
for i: = 0 to (n1+e) do
begin
if e = 0 then
begin
end
else
begin
x[i] : =0;
end;
for j : = n1 to (n1+e) do
begin
x[j] : = 1;
end;
end;
end
else
begin
for i: = 0 to (n2+o) do
begin
if o = 0 then
begin
end
else
begin
x[i] : =0;
end;
for j : = n1 to (n1+e) do
begin
x[j] : = 1;
end;
end;
end;
if (n1 > n2) and (e > o) then
begin
for i: = 0 to (n1+e) do
begin
write(x[i],' ');
end;
end
else
begin
for i: = 0 to (n2+o) do
begin
write(x[i],' ');
end;
end;
writeln();
writeln('второй массив');
writeln('сколько нулей? ');
readln(o);
writeln('сколько единиц? ');
readln(e);
writeln('с какого числа начинаются единицы по размеру массива? ');
readln(n1);
writeln('с какого числа начинаются нули по размеру массива? ');
readln(n2);
if (n1 > n2) and (e > o) then
begin
setlength(y,(n1+e));
end
else
begin
setlength(y,(n2+o))
end;
for i: = 0 to 10 do
begin
write('-': 2);
end;
writeln();
writeln('заполнение второго массива');
for i: = 0 to 10 do
begin
write('-': 2);
end;
writeln();
if (n1 > n2) and (e > o) then
begin
for i: = 0 to (n1+e) do
begin
if e = 0 then
begin
end
else
begin
y[i] : =0;
end;
for j : = n1 to (n1+e) do
begin
y[j] : = 1;
end;
end;
end
else
begin
for i: = 0 to (n2+o) do
begin
if o = 0 then
begin
end
else
begin
y[i] : =0;
end;
for j : = n1 to (n1+e) do
begin
y[j] : = 1;
end;
end;
end;
if (n1 > n2) and (e > o) then
begin
for i: = 0 to (n1+e) do
begin
write(y[i],' ');
end;
end
else
begin
for i: = 0 to (n2+o) do
begin
write(y[i],' ');
end;
end;
end.
какие ситуации смог представил то и смог сделать. тестером побудешь ты.