Program task;
var i,a,b,h:longint;
begin
writeln('a?');
readln(a);
writeln('b?');
readln(b);
writeln('h?');
readln(h);
i:=a;
while (i<=b) do begin
writeln(sin(i)*sin(i));
i+=h;
end;
readln;
end.
Скорее всего Г: визуальная-зрение,аудиальная-слух,и тд...
Блок-схема нужна тогда, когда у нас есть ветвления (условия, циклы), а здесь их нет, потому что решение можно записать в одну строчку:
begin
var a, b, c: integer;
readln(a);
readln(b);
readln(c);
writeln((a = b) or (a = c) or (b = c));
end.
Все решение в этой строчке:
(a = b) or (a = c) or (b = c)
весь текст К бит К=<span>7680 бит/с.* 90с =691200 бит</span>