Напишите блок-схему к программе: Uses crt; Var n:integer; Begin Writeln('с фамилией какого из древних учёных связано происхождение слова "алгоритм" ' ); Writeln ('1) Аль-Каши'); Writeln (' 2) Аль- Хайсана'); Writeln ('3) Аль- Хорсами'); Writeln (' введите номер ответа '); Readln(n); If n=3 then writeln (' правильный ответ ') else writeln (' неверный ответ ') ; Writeln (' происхождение слова "алгоритм" связано с фамилией - Аль - Хорсами '); End. Помогите пожалуйста!
Есть такая приблуда FCEditor называется, кидаете туда программу на паскале, она вам блок-схему рисует.
Так, где мой лучший ответ? =)
ого,вот это годная штука)
http://www.mediafire.com/file/ucbyirc3jg0wmke/FCEditor+1.6.zip
