//GNU C++ 11
#include <iostream>
using namespace std;
void while3 (int n, int k, int &quit, int &modul)
{ //quit - частное, modul - остаток
quit=0; modul=0;
while (n>=k) {quit++; n-=k;}
modul=n;
}
int while9 (int n)
{
int k=1;
while (3*k<n) k++;
return k;
}
int sum (int n){if (n==1) return 1; else return n+sum(n-1);}
//немного рекурсии
void while11 (int n, int &k, int &s)
{
k=1; s=1;
while (sum(k)<n) k++;
s=sum(k);
}
int main ()
{
//пиши функцию, задавай параметры
return 0;
}
<span>Выделяем текст и: Формат>Абзац>Отступы и интервалы>межстрочный</span>
ОКЕАН МОРЕ РЕКА
Тихий океан. Азовское Волга
Индийский Черное Дон
2^(3+10+10+4)=2^27 бит
3 - это степень бит в байте,
10 - степень КБ в МБ
10 - степень Б в КБ
4 - степень 16
(все в двоичной форме)
Program proga_25_3;
var
A: text;
s,p : string;
i:integer;
f:boolean;
begin
write('Введите имя и путь к файлу ');
read(p);
assign(A, p);
reset(A);
while not eof(A) do
begin
readln(A,s);
for i:=1 to length(s) div 2 do
if s[i]=s[length(s)-i+1] then
f:=true
else
begin
f:=false;
break;
end;
if f then
writeln (S);
end;
close(A);
end.<span>
</span>