Var n,a,i,s:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
begin
readln(a);
s:=s+a;
end;
writeln(s);
end.
Пример:
3
12
54
91
157
var
a: array[0..9] of integer;
k, i: integer;
begin
k := 0;
for i := 0 to 9 do
begin
readln(a[i]);
if a[i] > 12 then k += 1;
end;
writeln(k);
end.
Ответ:
корова
Объяснение:
НЕ ( ударение на первый слог) И (кол-во букв чётное)
Это высказывание истино, когда истины обе его части
1) корова (ударение на 2 слог, количество букв чётное)
НЕ (0) И (1) = 1 И 1 = 1 (высказывание истино)
2) козёл (ударение на 2 слог, количество букв нечётное)
НЕ (0) И (0) = 1 И 0 = 0 (высказывание ложно)
3) кошка (ударение на 1 слог, количество букв нечётное)
НЕ (1) И (0) = 0 И 0 = 0 (высказывание ложно)
4) конь (ударение на 1 слог, количество букв чётное)
НЕ (1) И (1) = 0 И 1 = 1 (высказывание ложно)
Const
ru : array[1..33] of Char = ('а','б','в','г','д','е','ё','ж','з','и',
'й','к','л','м','н','о','п','р','с','т',
'у','ф','х','ц','ч','ш','щ','ъ','ы','ь',
'э','ю','я');
en : array[0..33] of String = (' ','a','b','v','g','d','e','ye','zh','z','i',
'y','c','l','m','n','o','p','r','s','t',
'u','f','h','c','ch','sh','sch','`','ы','',
'ea','yu','ja');
{ транскрипцию записал не заглядывая ни в какие справочники - можете кидаться тапками }
Function GetIndex(ss : Char) : Byte;
Var ii : Byte;
Begin
ii:=1;
While (ii<=33) and (LowerCase(ss)<>ru[ii]) do Inc(ii);
If ii in [1..33] then GetIndex:=ii else GetIndex:=0;
end;
Function Trans(S : String) : String;
Begin
If Length(S)>0 then Trans:=en[GetIndex(S[1])]+Trans(Copy(S,2,Length(S)-1))
else Trans:='';
end;
Begin
Writeln(Trans('паскаль'));
Writeln(Trans('ява'));
end.