Многократное выполнение некоторой совокупности действий - это... условие цикла
счетчик цикла
тело цикла

Определите значение целочисленной переменной S после выполнения операторов:

S:=216

нц

для i от 1 до 4

S:=div(S,2)

кц

13
11
14

Определите значение целочисленной переменной S после выполнения операторов:

S:=0

нц для i от 1 до 2

нц для j от 2 до 3

S:=S+i+j

кц

кц

13
12
16

Определите значение переменной S после выполнения операторов:

i:=0; S:=0

нц пока i<3 i:=i+1;

S:=S+i*i

кц

Определите значение переменной S после выполнения операторов:

а:=1; b:=1; S:=0;

нц пока a<=5 a:=a+b;

b:=b+a;

S:=S+a+b

кц

Алгоритмическая структура какого типа изображена на блок-схеме?

цикл
ветвление
процедура
функция

В Древнем Египте наряду со значками , обозначавшими целые понятия и слова, существовали и другие знаки, обозначавшие слоги и даже отдельные звуки . Потребность в таких знаках очевидна, так как не все можно выразить в виде изображений (прежде всего, это касается личных имен).
В этих случаях египтяне превращали слова иероглифы в буквы иероглифы, из которых и составлялись слова, подлежащие передаче на письме согласно их звучанию. Например иероглиф «хт» — изображение дома — сделался двухбуквенным иероглифом, обозначающим звук [хт], иероглиф «мн» — изображение шахматной доски — стал иероглифом, обозначающим два звука [мн] и т.д. На первых порах значение фонетических иероглифов было вс но со временем их роль все более возрастала, и в последние века существования египетской письменности значение фонетических иероглифов стало господствующим. Но к чисто фонографическому письму (то есть такому, где каждый знак обозначает отдельный звук или букву) египтяне так и не перешли . Это важное усовершенствование было сделано в письме других народов.

var  

x, y: integer;

n: integer;

sum: integer;

mindif: integer;

f: text;

begin

   assign(f,'C:\27-A.txt');

   reset(f);

   readln(f, n);

   sum := 0;

   mindif := 20001;

   while not eof(f) do begin

       readln(f, x, y);

       if x > y then  

           sum := sum + x

       else  

           sum := sum + y;

       if (abs(x - y) < mindif) and (abs(x-y) mod 3 <> 0) then mindif := abs(x-y);

   end;

   if sum mod 3 <> 0 then

       writeln(sum)

   else

       writeln(sum - mindif);

end.

Объяснение: