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

1.в древней греции,говорят,была демократия. и все решали голосованием. по каждому вопросу гражданин ,например,афин мог проголосовать "за","против" или не голосовать вообще. напишите программу,которая бы подсчитывала число голосов и выводила на экран сообщение о том, принято решение или отклонено.(количество голосующих 10). 2.в массиве хранятся величины роста студентов(от 150 до 230 см).определить,сколько человек смогут попасть в команду по баскетболу. критерий отбора-минимальный рост 180 см. примечание: массив заполняется случайными числами. в начале программы его необходимо вывести

👇
Ответ:
Abdulla20071972LEW
Abdulla20071972LEW
27.03.2022
Pascal

1){-1 - против; 0 - не голосовал; 1 - за. В приложении пример ввода}
var i,s,a:integer;
begin
for i:=1 to 10 do
begin
read(a);
s:=s+a;
end;
if s=0 then writeln('50/50') else
if s<0 then writeln('IIPOTUB') else writeln('3A');
end.

2){сначала вводим кол-во студентов}
uses crt;
var a:array[1..100] of integer;
k, i, s:integer;
begin
clrscr;
randomize;
read(k);
for i:=1 to k do
begin
a[i]:=random(150, 230);
write(a[i], ' ');
end;
for i:=1 to k do
if a[i] >=180 then s:=s+1;
writeln(s);
end.
1.в древней греции,говорят,была демократия. и все решали голосованием. по каждому вопросу гражданин
4,4(3 оценок)
Открыть все ответы
Ответ:
fafab232
fafab232
27.03.2022
От чего зависит производительность жёстких дисков? - От скорости вращения шпинделя. Объема кэш памяти. Механизмов движеня головок.Устройства размещаемые на материнской плате?- Процессор, память, слоты, штекеры, батарейки, радио электронные компоненты, датчики, вентиляторы, радиаторы.Компилятор,транслятор,отладчик- это?- Средства разработки и тестирования приложений для разработчиков. Слово транслятор очень устаревшее, только в школе его упоменают.Какие вопросы решают операционная система?- Массовое привлечение неопытных пользователей в мир ПК. Распределение ресурсов ПК для программ.Программы,работающие в момент включения компьютера- Аппаратные тестовые программы. загрузчики. запуск ОС. 
4,7(42 оценок)
Ответ:
Dancerebuclic2017
Dancerebuclic2017
27.03.2022
Var
  c: set of char;
  i, n: integer;
  s: string;

begin
  c := [];
  write('Введите текст: ');
  readln(s);
  n := 0;
  for i := 1 to length(s) do
    if not (s[i] in c) then
    begin
      include(c, s[i]);
      n := n + 1
    end;
  writeln('Мощность алфавита, использованного для строки, равна ', n)
end.

Тестовый прогон:

Введите текст: В чащах юга жил бы фикус? Да, но фальшивый экземпляр...!
Мощность алфавита, использованного для строки, равна 35

Введите текст: Pi:=3.14159265; D:=Pi*sqr(D)/4;
Мощность алфавита, использованного для строки, равна 22
4,4(52 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ