Информатика на 17.12 (Пт): Конспект параграфа 1.5. стр. 37.
Выписать все определения и формулы выделенные и обозначенные восклицательным знаком на полях.
Стр. 41 Записать две таблицы «двоичный код» и «разрядность» в тетрадь. Найдите взаимосвязь между разрядностью и степенью, выучите степени двойки до 10-ти.
Параграф 1.6. стр. 45.
Выписать все определения и формулы выделенные и обозначенные восклицательным знаком на полях стр. 45-47
Стр. 49 № 5, 7, 9, 10, 14, 15.
Стр. 54 № 15, 16, 18, 19.

Понимаю, что задание большое оно будет оцениваться несколькими оценками так необходимые вам. Придется постараться!

Ссылка на приложение
http://onelink.to/ykbv7f

использовать Рисователь

алг

нач

в точку(150,200)

перо(3,черный)

окружность(150,200,50)

перо(3,черный)

окружность(235,170,38)

окружность(225,245,38)

окружность(160,290,38)

окружность(90,265,38)

окружность(60,195,38)

окружность(100,130,38)

окружность(175,115,38)

кисть(желтый)

залить(150,200)

кисть(красный)

залить(50,200)

кисть(оранжевый)

залить(100,100)

кисть(желтый)

залить(150,110)

кисть(зеленый)

залить(250,150)

кисть(голубой)

залить(200,250)

кисть(синий)

залить(150,270)

кисть(фиолетовый)

залить(100,250)

кон

Программа написана на PascalABC.NET 3.4.2, сборка 1979 (16.02.2019), но компилироваться должна и на обычном Pascal

не указано, как именно завершать ввод, поэтому сделал завершение словом exit

Кодprogram task31784852; var  number, maxLength, maxNumber: integer;  inputIsTrue: boolean;  inputString, maxLengthString: string; begin  inputIsTrue := false;  maxLength := 0;    Writeln('Напишите exit, чтобы завершить ввод и получить результат');    while inputIsTrue = false do    begin      Readln(inputString);      if Length(inputString) = 0 then        continue;      if inputString = 'exit' then        break;      number := number + 1;      if Length(inputString) > maxLength then        begin          maxLength := Length(inputString);          maxLengthString := inputString;          maxNumber := number;        end;    end;  Writeln('Самая длинная строка с номером ', number, ': ', maxLengthString); end.Проверка

Напишите exit, чтобы завершить ввод и получить результат

a

aa

aaa

lsd

pwpefowpeofkpwef

123462048201180301313031

exit

Самая длинная строка с номером 9: