1.определите, какое значение будет выведено на экран в результате выполнения ниже последовательности операторов: a: =1; b: =1; while a> =b do b: =b+a; a: =a+1; write(b*a) 2.используется оператор for i: = 1 to 30 do… после завершения выполнения тела цикла i = 3.какой оператор цикла желательно использовать, если известно условие выполнения тела цикла? а) repeat until б) while do в) for : = to do 3.цикл в фрагменте программы p: =2; repeat p: =p*0.1 until p< 0.1; будет исполнен: а) 0 раз б) бесконечное число раз в) 2 раза г) 1 раз 4.чему равно значение переменной s после выполнения следующего фрагмента программы: s: =0; for i: =0 to 5 do s: =s+1; а) 0 б) 15 в) 5 г) 6 5.укажите, сколько раз будет выполнен цикл for i : =-1 to 2 do a: =a+1; а) 3 б) 2 в) 0 г) 4 д) бесконечно

насколько я знаю в любой сборке delphi есть компонент "application events", у которго есть соответствующее событие "onshortcut", так вот разместите на форме данный компонент (в 7 версии delphi он должен лежать во вкладке "additional") и запишите в его свостве onshortcut следующее:

procedure tform1.applicationevents1shortcut(var msg: twmkey; var handled: boolean); beginif msg.charcode = ord('g') thenform1.close; end;

ord('g') - функция возвращающая код символа, в её параметр записывайте непосредственно тот символ, по нажатию которого должна прекратить работу ваша программа.

примерно так. на псевдоязыке, который легко переводится в тот, который знаком

 

//*********************************************************

сумм=0;

конец=0;

 

ввод(ч);

пока (ч#конец)   цикл

              если проверить(ч)=1 тогда   

                            сумм=сумм+ч;  

            конецесли;

          ввод(ч);

конеццикла;

 

печать(сумм);

//*****************************************************************

 

//******************************************************************

функция проверить(п)

            если остаток(п,10)=4 тогда

                              если остаток(п,6)=0 тогда

                                                возврат(1);

                              конецесли;

            конецесли;

            возврат(0);

конецфункции

//*******************************************************************

 

этот текст не использует массивы, поэтому количество вводимых чисел неограничено. их величина определяется описанием переменной(если в языке оно явно требуется, для данных достаточно описать как целое( сумм описать побольше(если требуется).

если в языке нет функции остаток(обычно mod), напиши свою, это просто.

повторюсь, в паскаль, бейсик, 1с текст переводится легко, в с(java, php и пр.) чуть сложнее, там немного другой синтаксис, но это преодолимые проблемы.