<span>var</span>
s<span>:</span><span>string</span>;
<span>
{функция проверки на палиндром}</span><span>function</span> palind<span>(</span>s<span>:</span><span>string</span><span>)</span><span>:</span><span>boolean</span>;
<span>var</span>
i<span>:</span><span>integer</span>;
fl<span>:</span><span>boolean</span>;
<span>begin</span>
fl<span>:=</span><span>true</span>;
<span>for</span> i<span>:=</span><span>1</span><span>to</span> length<span>(</span>s<span>) </span><span>div</span><span>2</span><span>do</span>
<span>if</span> s<span>[</span>i<span>]</span><>s<span>[</span>length<span>(</span>s<span>)</span><span>-</span>i<span>+</span><span>1</span><span>]</span><span>then</span>
fl<span>:=</span><span>false</span>;
Result<span>:=</span>fl
<span>end</span>;
<span>{основная программа}</span><span>begin</span>
<span>writeln</span><span>(</span><span>'Введите строку...'</span><span>)</span>;
<span>readln</span><span>(</span>s<span>)</span>;
<span>if</span> palind<span>(</span>s<span>)</span><span>then</span>
<span>writeln</span><span>(</span><span>'Данная строка является палиндромом!'</span><span>)</span>
<span>else</span>
<span>writeln</span><span>(</span><span>'Данная строка НЕ является палиндромом!'</span><span>)</span><span>end</span>.
Без функции:<span>var</span>
s<span>:</span><span>string</span>;
i<span>:</span><span>integer</span>;
palin<span>:</span><span>boolean</span>;
<span>{основная программа}</span><span>begin</span>
<span>writeln</span><span>(</span><span>'Введите строку...'</span><span>)</span>;
<span>readln</span><span>(</span>s<span>)</span>;
fl<span>:=</span><span>true</span>;
<span>for</span> i<span>:=</span><span>1</span><span>to</span> length<span>(</span>s<span>) </span><span>div</span><span>2</span><span>do</span>
<span>if</span> s<span>[</span>i<span>]</span><>s<span>[</span>length<span>(</span>s<span>)</span><span>-</span>i<span>+</span><span>1</span><span>]</span><span>then</span>
fl<span>:=</span><span>false</span>;
<span>if</span> palin <span>then</span>
<span>writeln</span><span>(</span><span>'Данная строка является палиндромом!'</span><span>)</span><span>else</span>
<span>writeln</span><span>(</span><span>'Данная строка НЕ является палиндромом!'</span><span>)</span><span>end</span>.
#include <stdio.h>
int main(){ int i; for ( i = 10; i < 100; i++ ) { if(i==((i/10)*(i%10))*3){ printf( "%d\n", i ); } } getchar();}Алгоритм тот-же
Правильный ответ: 4,5 Мбайта
Объяснение:
4718592 байт / 1024 = 4608 Кбайта
4608 Кбайт / 1024 = 4,5 Мбайта
94,7=96972,2 байт
<span>99 401 728= 97072 кбайта
</span>5,52=5652,48 кбайта= 5788139,52 байт