Написал пояснение к каждой строке
Var s,k: integer;
Begin
s := 0; // Зануляем S
for k := 4 to 8 do // Цикл от 4 до 8
s := s+6; // Происходит подсчёт заданных чисел из цикла
writeln(s); // Вывод ответа
End.
Последний невозможно перевести, так как число записано неверно, число в 7 СС может состоять из цифр от 0 до 7(а там есть 8)
Полное решение не писал, так как много.
В интернете посмотрите тему "Перевод из одной Системы Счисления в другую"
Нужен сам рисунок для высчитки координат (оригинал).
Операнды
line to
assign
Дай оригинал рисунка, тогда сделаеп))
а по сути ничего сложного. Строиш по рисунку х и у, высчитываеш координаты пересечения каждого круга с каждым направлением и все через if делаеш. Например:
read (a);
if (a = 1) then
line to (x,y);
как-то так))
Varn,k,a,b,c,g:integer;e:real;Beginwriteln('Количество яблонь: ');read(n);writeln('Содержание 1-ой яблони в рублях: ');read(k);writeln('Наценка на 1кг в процентах: ');read(g);a:=0;randomize;for c:=1 to n dobeginb:=random(20)+30;a:=a+bend;e:=k*g/100*a;writeln('Урожай составил ',a,' кг яблок.');writeln('Прибыль с проажи ',a,' кг яблок: ',e,' рублей.');end.