<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadInteger('Введите натуральное число:');
var p:=Round(log2(s));
Writeln('Два в степени ',p,' = ',power(2,p))
end.
<u>Пример</u>
Введите натуральное число: 4093532
Два в степени 22 = 4194304
#include <iostream>
using namespace std;
int main()
{
int A,B,C;
cin >> A >> B >> C;
for(int i = A; i <= B; i++)
{if(i % C == 0) cout << i << " ";}
return 0;
}
Правильно или нет не знаю
<span>В прямом - действие выполняется сразу после ввода командной строки. В программном - после компиляции, сборки всех действий автоматически - все описанные действия попорядку</span>
Var s,tmp:string;
i,n:integer;
flag,word:boolean;
function letter (const let:char):boolean;
begin
if ((let>='a') and (let<='z')) or ((let>='A') and (let<='Z')) then letter:=true
else letter:=false;
end;
begin
readln (s);
s:=s+' ';
n:=length(s);
flag:=false;
for i:=1 to n do
begin
if (letter(s[i])) and (not flag) then
begin
flag:=true;
tmp:='';
word:=false;
end else if (not letter(s[i])) and (flag) then
begin
flag:=false;
if (word) and (not (tmp='')) then writeln (tmp);
end;
if (flag) then
begin
tmp:=tmp+s[i];
if (s[i]='k') then word:=true;
end;
end;
end.