var
i, count: integer
i := 1;
count := 0;
repeat
String stroka;
readln(stroka);
if(length(stroka)<3)
count := count+1;
i:=i+1
Until(i=8);
Выводишь на экран
Цикл оформляй через for, я просто забыл синтаксис этого цикла.
Program z1;
var x,y:real;
begin
writeln('введите координаты точки (x;y), при у неотрицательный');
readln(x,y);
if x>0 then
writeln('точка находится в I четверти');
if x<0 then
writeln('точка находится вo II четверти');
if x=0 then
writeln('точка находится на оси ОY');
if y=0 then
writeln('точка находится на оси ОХ');
if (x=0)and(y=0) then
writeln('точка находится в начале координат');
end.
Восьмеричная:
двоичное число разбиваем на триады с конца и переводим в десятичную
1000110010010 - 2
110 - 6
000 - 0
001 - 1
ответ - 1062 в восьмеричной
16 ричная:
разбиваем на тетрады
0010 - 2
0011 - 3
0010 - 2
ответ 232 в 16ричной
Десятичная:
1000110010<span> = 1∙2^</span>9+0∙2^8+0∙2^7+0∙2^6+1∙2^5+1∙2^4+0∙2^3+0∙2^2+1∙2^1+0∙2^0<span> = 512+0+0+0+32+16+0+0+2+0 = 562 в десятичной
</span>
чтобы перевести в любую другую систему можно взять десятичное число (в данном случае 562) и перевести в нужную систему (например в троичную). (ответ в приложении)
Подключаться к интернету,загружать программы и приложения,проигрывать музыку,фотографировать... Удачи:)
Цикл с параметром может не выполниться, если максимальное значение счётчика меньше минимального( в Pascal - FOR).
Цикл с предусловием тоже может не выыполниться, если при первом заходе условие не выполняется( в Pascal - WHILE). Цикл с постусловием выполнится минимум 1 раз( в Pascal - REPEAT).