Регистрация
Липапит
10.04.2020 22:21
Информатика
Есть ответ 👍

Составить программу преобразования натуральных чисел, записанных в римской системе счисления, в десятичную систему счисления. 2. дана строка, содержашая текст на языке. выяснить, сколько раз встречается в ней самое короткое слово. 3. дана строка, содержащая текст, включающий и слова. получить новую строку, заменив в исходной все заглавные буквы строчными и наоборот.
, . ​

253
317
Посмотреть ответы 1

Ответы на вопрос:

DimaIvanov56234
DimaIvanov56234
4,6(5 оценок)
Var   a: array[1..40] of integer;   i,n,k3,k,s,a3: integer; begin   write('n='); read(n);   for i: =1 to n do read(a[i]);   k3: =0; {a}   s: =0; k: =0; {b}   a3: =-1000; {c}   for i: =1 to n do begin       if a[i] mod 10=3 then inc(k); {a}       if (a[i]> 0) and (a[i] mod a[1]=0) then begin {b}           s: =s+a[i]; inc(k)           end;       if (a[i]< 0) and (a[i]> a3) and (a[i] mod 3=0) then a3: =a[i]; {c}       end;   writeln('кол-во чисел. оканчивающихся на 3: ',k3); {a}   writeln('среднее арифметическое по условию: ',s/k: 0: 3); {b}   if a3< > 1000 then writeln('наибольший отрицательный, кратный 3: ',a3) {c}   else writeln('нет отрицательных элементов, кратных 3') end. для решения конкретного пункта выбирать только операторы, помеченные этим пунктом, например, {a} для а)

Популярно: Информатика