1 мегабайт = 1024 килобайта
1 килобайт = 1024 байт
512*1024*1024=536870912 однобайтовых ячеек
Текстовый редактор это microsoft word,предназначенный для просмотра документов и создания их, чтобы вставить символ, надо выбрать параметр вставка, нажать на значок символ и выбрать его,чтоб установить размер шрифта, нужно перейти на главную страницу и выбрать желаемый шрифт, чтобы текст был курсивом надо на главной странице выбрать букву Ч подчеркнутую, чтобы сохранить файл надо выбрать значок файла и нажать сохранить.
Var
i, a, b, n, n2, j: longint;
s: string;
flag: boolean;
begin
Write('Введите через пробел границы диапазона: ');
Readln(a, b);
if b < a then begin n := a; a := b; b := n end;
if a < 11 then a := 11;
for i := a to b do
begin
Str(i, s);
n := Length(s); n2 := n div 2; flag := true; j := 1;
repeat
flag := (s[j] = s[n - j + 1]);
j := j + 1
until (not flag) or (j > n2);
if flag then Write(i, ' ')
end;
end.
Тестовое решение:
Введите через пробел границы диапазона: 800 1500
808 818 828 838 848 858 868 878 888 898 909 919 929 939 949 959 969 979 989 999 1001 1111 1221 1331 1441
<span>Program 1;</span>
<span>Var i, dlina, shirina, visota, </span><em>N</em><span>, S, V : Integer;</span>
BEGIN
WriteLn(’Введите число залов‘);
ReadLn (N);
for<span> i:=1 </span>to<span> </span><em>N</em><span> </span>do<span> </span>begin
<em />WriteLn(’Введите длину,ширину и высоту зала‘);
<span>ReadLn (dlina, shirina, visota);</span>
<span>S:=dlina*shirina;</span>
<span>V:=S*visota; </span>
<span>WriteLn(‘</span>Площадь пола=<span>’,S,’ </span>Объем зала=<span>‘,V);</span>
end
END.
если это 8-9 класс, то должно быть так)))
Var a,s:integer;
begin
writeln('Введите числа: ');
s:=0;
repeat
readln(a);
if (a mod 4=0) and (a>99) and (a<1000) then s+=1;
until a=0;
writeln(s);
end.