Они одинаковые,потому что система хранения информации тысячеричная.Байт, Килобайт, Мегабайт, ГИГАБАЙТ,Террабайт.
Var x, a, b, c, d: integer;
begin
readln(x, a, b, c, d);
if ((x > a) and (x < b)) then
writeln('[', a, '; ', b, ']');
if ((x > c) and (x < d)) then
writeln('[', c, '; ', d, ']');
<span>end.
Вот так, интервалы - они и в Африке интервалы)</span>
Если первая буква гласная, то удалить её и вывести полученное, а если согласная, то просто вывести.
Var k,n:integer;
begin
write('k = (k кратно 3) ');
readln(k);
n:=k div 3 mod 10;
writeln(k,'-я цифра последовательности 101102103…149150 = ',n);
end.
Пример:
<span>k = (k кратно 3) 27
27-я цифра последовательности 101102103…149150 = 9</span>
If(exp>=5 & age>20){
return true;
}
else{
return false;
}