Var n:integer;
a:array[1..27] of string[15]=
('один','два','три','четыре','пять','шесть','семь','восемь','девять',
'десять','одиннадцать','двенадцать','тринадцать','четырнадцать',
'пятнадцать','шестнадцать','семнадцать','восемнадцать','девятнадцать',
'двадцать','тридцать','сорок','пятьдесят','шестьдесят','семьдесят',
'восемьдесят','девяносто');
begin
write('N (1..99) = ');
readln(N);
if (n>=1)and(n<=19)
then writeln(a[n])
else begin
write(a[n div 10 + 18]);
if n mod 10 <> 0 then write(' ',a[n mod 10]);
writeln;
end;
end.

Пример:
N (1..99) = 46
сорок шесть

0 0

4 года назад

ИНФОРМАТИКА, 9 КЛАСС ПОМОГИТЕ♥♥♥♥♥

токарь8888

Операция И - логическое умножение, где 1 * 0 = 0, 1 * 1 = 1, 0 * 0 = 0. Операция ИЛИ - логическое сложение, где 1 + 1 = 1, 0 + 1 = 1, 0 + 0 = 0. Операция НЕ - логическое отрицание, где НЕ 0 = 1, НЕ 1 = 0.

0 0

4 года назад

Составить программу, которая заполняет массив а [1..14] случайными целыми числами в диапазоне от 1 до 10, затем найти сумму элем

malika81 [28]

Var mass:array[1..14] of integer;
g,s,sum:integer;
begin
randomize;
for g:=1 to 14 do
begin
mass[g]:=random(10)+1;
if (mass[g] mod 2) = 0 then begin sum:=sum+mass[g]; s:=s+1; end;
writeln(mass[g]);
end;
writeln('сумма четных = '+sum);
writeln('количество нечетных в массиве = '+(14-s));
end.

0 0

3 года назад