Дана программа на языке паскаль: program a4; var x, k1, k2: integer; begink1: =0; k2: =0; repeatwriteln ('введите целое число'); readln (x); if x< 0 then k1: =k1+1; if x> 0 then k2: =k2+1; until x=0; writeln ('k1=' , ' ' , 'k2=' , k2)endсоставьте блок-схему, соответствующую программе.(2-умя
Adsl- асинхронная технология передачи данных, т.е. скорость входа и выхода отличаются, причем зачастую довольно неплохо
Tcp/IP- протокол контроля доставки пакета и присвоения адреса IP
Http- протокол передачи данных для гипертекстовых документов
FTP - файловый протокол передачи
Pop - протокол получения электронной почты
SMTP - протокол отправки эл. сообщений
DTM - протокол динамической коммутации каналов
Анастасия, Вам нужно поменять местами строки 60 и 61. Сейчас программа ищет только одну пару чисел, а по условию нужно выводить их все, т.к. вывод сообщения в Memo1 произойдет только после прохода двух циклов for (для параметров i и j)
Если хотите улучшить программу: можно добавить проверку на тот случай, если ни одной подходящей пары не будет найдено.
Можно еще в StringGrid'е оставить одну строку, т.к. остальные не используются, за это отвечает свойство RowCount
Мемо1 в начале процедуры желательно очистить от сообщений, Memo1.Lines.Clear; если только Вы не хотите хранить всю историю работы программы.
Объяснение: