Определите, что будет напечатано в результате работы следующей программы: var s,k integer; begin s: =0; for k: =3 to 8 do s: =(s+3)*k; write(s); end. p.s. желательно подробно.
Var s,k integer; //обозначили переменные.Тип integer говорит что это целые числа. Begin s:=0; //Присваеваем s значение 0.Тоесть s у нас в начале программы ровно нулю.
for k:=3 to 8 do s:=(s+3)*k; //Тут k присваеваем значение 3.Поэтому, от 3 до 8 делаем " s:=(s+3)*k".Тоесть (8-3=5) 5 раз выполняем s:=(s+3)*k. Пишу ход выполения программы: s:=(0+3)*3=9 // тут значение s стало ровно 9. s:=(9+3)*3=12*3=36 // тут значение s стало ровно 36. И так далее. s:=(36+3)*3=39*3=39*3=117 s:=(117+3)*3=120*3=360 s:=(360+3)*3=363*3=1089 write(s); // выводим значение рассчитанной s. End. // конец программы.
:D Ну го Ничего если на паскале напишу ? uses crt; var a:array[1..50] of integer ;i,j,n,x,t,k:integer;b:string; begin read(n); for i:= 1 to n do begin a[i]:=random(15); write(a[i],' '); end; writeln; for i:= 1 to n-1 do for j:= i+1 to n do if a[i]> a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end; for i:= 1 to n do write(a[i],' '); writeln; read(x); for i:= 1 to n do if a[i] = x then k:=k+1; str(k,b); n:=length(b); if k in [11..19] then write (k,' раз') else if k = 0 then write('число ',x,' не встречается ')else case b[n] of '0','1','5','6','7','8','9': write (k,' раз'); '3','4','2': write (k,' раза') ; end; end.
Панель задач это помещенная по умолчанию внизу рабочего стола панель, которая содержит кнопку "Пуск", кнопки выполняющихся приложений, панели инструментов, область уведомлений (трей) и системные часы. Настроенная панель задач может значительно облегчить работу с компьютером, обеспечив быстрый доступ к часто используемым функциям и системным сервисам. Щелкнув правой кнопкой мыши на пустом месте панели задач, вы увидите контекстное меню для доступа к некоторым функциям ОС а также настройке самой панели и меню "Пуск". Отсюда можно вызвать "Диспетчер задач", сгруппировать открытые окна приложений, свернуть или развернуть все открытые окна. В контекстном меню снимите галочку с пункта "Закрепить панель задач". Панель стала разбита на участки, которые можно сдвигать влево и вправо, а также вверх и вниз для расширения места выделяемого под ту или иную функцию, или перемещать к любой стороне экрана. Как правило, одной строки маловато, поэтому лучше растянуть панель по высоте на две строки. В контекстном меню есть пункт "Панели инструментов", который предлагает несколько стандартных панелей:Адрес - эта панель удобна для ввода веб-адресов и перехода на веб-страницы; Ссылки - это панель, которая по умолчанию встроена в IE и содержит веб-адреса для поддержки продуктов Microsoft; Языковая панель - отображает индикатор раскладки клавиатуры - показывает RU или EN в зависимости от текущей раскладки клавиатуры; Рабочий стол - содержит ссылки с выпадающими меню к ярлыкам или программам, расположенным на рабочем столе; Быстрый запуск - очень удобная панель, в нее можно простым перетаскиванием поместить ярлык на нужную программу, и она будет запускаться одним нажатием кнопки. Это намного удобнее, чем размещение ярлыков на рабочем столе.
Var s,k integer; //обозначили переменные.Тип integer говорит что это целые числа.
Begin
s:=0; //Присваеваем s значение 0.Тоесть s у нас в начале программы ровно нулю.
for k:=3 to 8 do s:=(s+3)*k; //Тут k присваеваем значение 3.Поэтому, от 3 до 8 делаем " s:=(s+3)*k".Тоесть (8-3=5) 5 раз выполняем s:=(s+3)*k.
Пишу ход выполения программы:
s:=(0+3)*3=9 // тут значение s стало ровно 9.
s:=(9+3)*3=12*3=36 // тут значение s стало ровно 36. И так далее.
s:=(36+3)*3=39*3=39*3=117
s:=(117+3)*3=120*3=360
s:=(360+3)*3=363*3=1089
write(s); // выводим значение рассчитанной s.
End. // конец программы.