Меню — это выводимый на экран список команд, которые можно задать компьютеру. Выбор команды производится щелчком кнопкой мыши. Контекстное меню — это список команд, относящихся к текущему объекту; оно появляется при щелчке правой кнопкой мыши на выделенном объекте.
Спасибо
Ответ дал: Гость
Var best, m, s,i: integer; begin best : = 10000000; for i: = 1 to 3 do begin write('min sec = '); readln(m, s); if best > m * 60 + s then best : = m * 60 + s; end; writeln('лучший = ', best div 60, ' min ', best mod 60, ' sec'); end.
Ответ дал: Гость
вот первая программа. вторую сейчас пишу.
program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.
Популярные вопросы