М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Panda511111
Panda511111
01.10.2020 07:04 •  Информатика

Надо код на языке Паскаль I. Имеется ряд цилиндрических резервуаров, высота которых одинакова и равна Н, а внутренние радиусы оснований образуют последовательность: R,R/21/2,R/31/2. Найти наименьшее количество резервуаров, в которых поместилась бы жидкость объема А.
2. В числовую переменную в произвольном порядке вводятся нулевые и положительные целые числа , количество чисел заранее неизвестно. Определить сумму и количество положительных чисел и максимальное количество подряд идущих нулей (признак конца отрицательное число).

👇
Ответ:
Сашенька228
Сашенька228
01.10.2020

Ровно 1301638 кг я пойду на работу ок

4,6(1 оценок)
Открыть все ответы
Ответ:
JuMpEr104
JuMpEr104
01.10.2020
А-Я (33 символа), символы русского алфавита
2) 36 согласных звуков: [б], [б'], [в], [в'], [г], [г'], [д], [д'], [ж], [з], [з'], [й'], [к], [к'], [л], [л'], [м], [м'], [н], [н'], [п], [п'], [р], [р'], [с], [с'], [т], [т'], [ф], [ф'], [х], [х'], [ц], [ч'], [ш], [щ'] 
6 гласных звуков: [а], [у], [о], [ы], [и], [э], звуковые фонемы русского языка
3) A-Z (26 символов), символы латинского алфавита
4) 0123456789, символы арабской записи цифр
5) аденин (А), гуанин (G), цитозин (С), тимин 
(T), азотистые основания участвующие в формировании дизоксирибонуклеиновой кислоты
6) 01, сигнал низкого и высокого напряжения используемый для передачи данных
4,4(13 оценок)
Ответ:
PascalВыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 uses crt; var s,s1:string;     c:char;     i,j,k:byte; begin writeln('Введите строку'); read(s); s1:=s;{сделаем копию строки, если строка не нужна, то можно и не делать} i:=1; while i<length(s1) do  begin   c:=s1[i];{запомним символ}   k:=0;   for j:=length(s1) downto i+1 do{с конца строки ищем такие же}   if s1[j]=c then{если есть}    begin     k:=1;{фиксируем}     delete(s1,j,1);{удаляем}    end;   if k=1 then delete(s1,i,1){если не один, удаляем}   else i:=i+1;{иначе проверяем следующий}  end; writeln('Символы по 1 разу'); if s1='' then write('Таких символов нет') else write(s1); end.
4,5(23 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ