Var a,b:integer;beginfor a:=10 to 99 dobeginif (a div 10) = (a mod 10) thenbeginb:=b+1;end;end;writeln(b);end.
12022, 1222, 989, 90899, 9000
1Гб=1024Мб, 1024 умножить на 16, и разделить на 700 =23
Я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))
var
a: string;
b: integer;
begin
writeln ('Введите строку');
read (a);
if (a='город минск')
then writeln ('город МИНСК')
else
begin
writeln ('введите "город минск", 1-продолжить, 0-выйти');
read (b);
end;
while (b = 1) do
begin
writeln ('Введіте строку');
read (a);
if (a='город минск')
then writeln ('город МИНСК')
else
begin
writeln ('введите "город минск", 1-продолжить, 0-выйти');
read (b);
end;
end;
end.