Во Сопоставьте служебные слова с записями, которые указываются после них.

Укажите соответствие для всех 4 вариантов ответа:
1) условия применимости
2) последовательность команд
3) цель выполнения алгоритма
4) название алгоритма

__ алг
__ дано
__ нач
__ надо

Во Какие слова называются служебными?

Выберите один из 3 вариантов ответа:
1) это слова из школьного алгоритмического языка, смысл которых меняется.

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

3) это слова русского языка, смысл и употребления которых задан раз и навсегда.

Во Что относится к особенностям алгоритмического языка?

Выберите несколько из 6 вариантов ответа:
1) Семантика.
2) Дискретность.
3) Массовость
4) Оригинальность
5) Синтаксис.
6) Алфавит.

Во Что называется, телом алгоритма?

Выберите один из 3 вариантов ответа:
1) цель выполнения.
2) последовательность команд.
3) условия применимости.

Во Какие служебные слова относятся к заголовку алгоритма?

Выберите несколько из 5 вариантов ответа:
1) нач.
2) дано.
3) кон.
4) алг.
5) надо.

a в квадрате плюс b в квадрате:

  sqr(a) + sqr(b);

значит  так  кролик  это  4 лапы + 1  голова  5(ед) ,  голубь 2 лапы  + 1 голова= 5(ед),    размещаем  сначало  во  все клетки по  голобю + по кролику  получается в каждой  клетке уже по  8 (ед)    остается 3 кролик и  4  голубя        5 елток  тоесть еще по  одному  кролику  и  в 2  оставшиеся по 2  голобу    получается    3 клетки  будет  по 1 голубю и 2 кролика    и 2  клетки  с 1 кроликом и 3 голубями          проверяем    1*3+2*5=13      и    5*1+3*3=14   тоесть  все верное  : )  

1)

var

s,r: string;

i: integer;

begin

readln(s);

r: ='';

for i: =1 to length(s) do

if s[i]< > 'a' then r: =r+s[i];

writeln(r);

end.

2)

текст разделяем знаками препринания

var t: array [1..100] of string; p, s, r: string; f, i, j, k: integer;

begin p : = ' ; : -'; readln(s); k : = 0; r : = ''; for i : = 1 to length(s) do begin f : = 0; for j : = 1 to length(p) do if s[i] = p[j] then f : = 1; if f = 0 then r : = r + s[i] else begin k : = k + 1; t[k] : = r; r : = ''; end; if i=length(s) then begin k : = k + 1; t[k] : = r; end; end; for i : = k downto 1 do write(t[i], ' '); end.

varn,i: integer; x0,y0,x1,y1,x2,y2,s: real; begin readln(n); s: =0; readln(x0,y0); x1: =x0; y1: =y0; for i: =2 to n do begin readln(x2,y2); s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); x1: =x2; y1: =y2; end; x2: =x0; y2: =y0; s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); writeln(s: 10: 2); end.