Прочитайте формулу: =ЕСЛИ(A1=100; "Всегда"; ЕСЛИ(И(A1>=80; A1<100); "Обычно"; ЕСЛИ(И(A1>=60; A1<80); "Иногда"; "Никогда")))

написано для pascal abc

uses graphabc; begin window.title : = 'apple'; var y,y0,x,t: integer; brush.color : = clgreen; y0: =70; x: =70; lockdrawing; for t : = 0 to 8 do begin y: =y0+5*t*t; window.clear(clwhite); circle(x,y,50); redraw; sleep(100); end; end.

т.к 3 вида флагов, значит возводим число 3 в степень равную кол-ву флагов

ответ: 81 сигнал 

var a: integer;

begin readln(a); if (4 * a > 9) and (4 * a < 100) then writeln('периметр двузначное число') else writeln('периметр не двузначное число'); end.

16-битной кодировке unicode.

один символ s =16 бит

количество бит текстового файла    к=  51200 бит/с * 10 с= 512000

количество символов к/s=512000/16  =32000