В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Metrofanovaa
Metrofanovaa
05.05.2022 23:23 •  Информатика

Пустой сундук весит 15 кг. золотая монета весит а граммов, серебряная на 15% легче золотой, а медная на четверть легче серебряной. в сундуке лежит 20%золотых, 60% серебряных и х медных. напишите программу на бейсик, определяющую сколько весит полный сундук?

Показать ответ
Ответ:
nikita8989
nikita8989
04.02.2021 10:01
Количество слогов считаем по количеству гласных букв в слове.

Program pr;
uses crt;

var str,s: string; 
a,i,j,len,k,kslog: byte;      

Begin 
Writeln('Введите предложение'); 
readln(str);   
Writeln('Введите кол-во слогов'); 
readln(k);   
Writeln('Слова с ',k,' слогами:'); 
Writeln;   

len:=length(str); 
a:=0; 
kslog:=0; 

for i:=1 to len do     
            Begin           
                   if (str[i] = ' ')   then         
                        Begin         
                           s:=copy(str,i+1,a);                   
                 
                           for j:=1 to length(s) do           
                           Begin             
                           if s[j] in ['А','О','У','Э','Ы','Я','Ё','Ю','Е','И','а','о','у','э','ы','я','ё','ю','е','и'] then                                                    inc(kslog);           
                           end;                           
                   if (k=kslog) then Writeln(s);               
                   kslog:=0;               
                   a:=0;         
                      end         
                   else  a:=a+1;     
             end;           

Writeln;     
Writeln('Для завершения программы нажмите Enter');     
readln;      
end.      
0,0(0 оценок)
Ответ:
Аленчик310805
Аленчик310805
10.12.2020 01:53
Сетевые технологии являются неотъемлемой частью взаимодействия между компьютерами. В нашем  информационном веке немаловажна большая скорость передачи данных, которая с каждым годом увеличивается, благодаря производству нового сетевого оборудования. На сегодняшний день наиболее распространённой  и удобной технологией является беспроводная передача данных  Wi-Fi (стандарт передачи данных 802.11, если мне не изменяет память) но и у неё есть свои минусы, в отличии от проводной. Если устройство будет получать с сигнал с большей дистанцией, чем запланированно в раздающем устройстве, то соответственно сигнал будет слабее . Но это вы и наверняка и сами знаете. 
 Если говорить конкретно о сетевом оборудовании, то есть крупные производители, которые поставляют на рынок IT дорогостоющее оборудование такие как (Cisco) , позволяющее по зашифрованным каналам передавать данные. Ведь все данные могут подвергнуться , как внешним , так и внутренним атакам.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота