Дана программа. Определить результат выполнения.

program N02;
const A: array [1..10] of integer = (1,36,2,18,3,12,4,9,6,6);
var i, k: integer;
begin
k:=0;
for i:=1 to 7 do
if A[i] write(k)
end.

Вторая задача

Дана программа. Определить результат выполнения.

program N02;
const A: array [1..6] of integer = (16,1,8,2,4,4);
var i, k: integer;
begin
k:=0;
for i:=2 to 6 do
if A[i-1]>=A[i] then k:=k+1;
write(k)
end.
Результат:

число-общее

столица росси - единичное

учебник - общее

житель москвы - общее

столица - общее

самая высокая гора - единичное

пушкин - единичное

сказочный персонаж - общее

баба яга- единичное

б< т

к< л

с< е

липа ниже березы

к< л< б< т

сосна выше тополя

к< л< б< т< с< е

самое высокое ель

самое низкое клен

program chislo;

var x: integer;

          z,y : real;

begin

readln(x);

y: =5.5;

z: = x-y;

writeln(z);

end.

при запуске программы вводите эти значения и тестируете.

1. по буквам

2. по слогам

3. по согласным

4. произношение на оборот

5. по 1ой букве в алфавите. н-р весна в-3-я буква, р-18-я в алфавите