Цикл с параметром может не выполниться, если максимальное значение счётчика меньше минимального( в Pascal - FOR).
Цикл с предусловием тоже может не выыполниться, если при первом заходе условие не выполняется( в Pascal - WHILE). Цикл с постусловием выполнится минимум 1 раз( в Pascal - REPEAT).
Function aToDec(n:string;k:integer):longint;
{ Перевод из системы по основанию k в десятичную }
var
i:integer;
pa,s:longint;
begin
s:=0;
pa:=1;
for i:=Length(n) downto 1 do begin
s:=s+pa*(Ord(n[i])-Ord('0'));
pa:=pa*k
end;
aToDec:=s
end;
function DecToa(n:longint;k:integer):string;
{ Перевод из десятичной системы в систему по основанию k }
var
s:string;
c:integer;
begin
s:='';
c:=Ord('0');
while n>0 do begin
s:=Chr(c+n mod k)+s;
n:=n div k
end;
DecToa:=s
end;
function AtoB(s:string;A,B:integer):string;
{ Перевод из системы по основанию A в систему по основанию B }
begin
AtoB:=DecToa(aToDec(s,A),B)
end;
var
a,b:integer;
n:string;
begin
Write('Число в c/c по основанию [2;10]: '); Readln(n);
Writeln('Укажите исходное и результирующее основания: ');
Read(a,b);
Writeln(n,'(',a,') = ',AtoB(n,a,b),'(',b,')');
end.
Пример решения
Число в c/c по основанию [2;10]: 643342414
Укажите исходное и результирующее основания:
7 9
643342414(7) = 80050347(9)
Если на паскале сойдет, то лови...
Если от 11 и до 15, значит возраст должен быть >= 11, но <= 15 (больше или равно, меньше или равно), это можно сделать с помощью оператора in, допустим age будет равен 13, тогда пишем так if (age in [от..до]). И дальше можем что нибудь делать с этим. Вот код:
begin
var age: integer; //Создаем переменную для хранения возраста
readln(age); //Читаем возраст
if (age in [11..15]) then writeln('Подросток') else writeln('Не подросток');//Подробнее опишу
end.
Допустим:
Ввод: 13;
Вывод: 'Подросток'
---------------------------------
Ввод: 18
Вывод: 'Не подросток'
И так далее...
--------------------------------
Если не трудно
нажми "Спасибо" ;)
Складемо алгоритм переходу вулиці.
Алгоритм Перехід
1.Подивитися ліваоруч.
2.Якщо немає перешкоди,то йти до середини вулиці,інакше пропустити машини,йти до середини вулиці.
3.Подивитися праворуч.
4.Якщо немає перешкоди,то завершити перехід,інакше пропустити машини,завершити перехід.