KTTC28072003
29.01.2020 01:47

Вводится с клавиатуры массив слов. Определить, сколько слов начинается на определенную букву. pascal

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Inalova77
07.07.2022 23:34

Программа на Python

 

 

import sys 

#ввод значения 

a = raw_input("Введите значение возраста")

#пробуем преобразовать введенное значене к числу

try:

  a = int(a)

except:

  # если введено значение котоое нельзя преобразовать в число ругаемся и завершаем программу

  print "Не корректное значение"

  sys.exit(1)

 

 if a < 0:

  print "возраст не может быть меньше нуля"

elif a>=6 and a<=17:

  print "Школьник"

else:

  print "Не школьник"

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

0,0(0 оценок)
Ответ:
sev200684
17.12.2022 17:15

var a:array[1..40] of integer;

i, j, cou, coumax, amax: integer;

begin

   coumax:=0;

   for i:=1 to 40 do

      readln(a[i]);

   for i:=1 to 40 do begin

      cou:=0;

      for j:=1 to 40 do

         if(a[i]=a[j]) then inc(cou);

      if(cou>coumax) then begin

         coumax:=cou;

         amax:=a[i];

      end;

   writeln(amax, ' is the most repeated value');

end.

 

var a1, temp, cou, i, sum:integer;

begin

   read(a1);

   if (a1>=0) then cou:=1 else cou:=0;

   if (cou>0) then sum:=a1 else sum:=0;

   for i:=2 to 40 do begin

      read(temp);

      if (temp>0) and (temp mod a1=0) then begin

         inc(cou);

         inc(sum,temp);

      end;

   end;

   writeln(sum/cou)

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота