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

Дан массив a состоящий из 30 целых чисел — рост 30 учеников школы. сколько из них имеет рост больше 170 см? можно ли сформировать баскетбольную команду (в команде должно быть не менее пяти человек ростом больше 170 см)? формат входных данных на единственной строке через пробел записаны 30 целых чисел (100≤ai≤220)(100≤ai≤220) — росты учеников. формат выходных данных требуется в первой строке вывести единственное число — количество учеников, рост которых не меньше 170. на следующей строке вывести «yes», если баскетбольную команду набрать можно, иначе вывести «no».

👇
Ответ:
tolstykh2005ow2t1s
tolstykh2005ow2t1s
14.04.2023
//Так рост больше или не меньше 170? В данном решении рассматривается вариант с больше
//Dev-C++ 5.11 (C)

#include <stdio.h>

int main(void)
 {const int n=30;
 int arr[n],k;
 k=0;
 for(int i=0;i<n;i++)
  {scanf("%d",&arr[i]);
  if(arr[i]>170)
   k++;}
 printf("%d \n",k);
 if(k>=5)
  printf("YES");
 else
  printf("NO");
 return 0;}
4,8(90 оценок)
Ответ:
Like2942
Like2942
14.04.2023
Var
  i, c: integer;
  ar: array[1..30]of integer;

 begin
  c := 0;
  for i := 1 to 30 do begin
    read(ar[i]);
    if (ar[i] > 170) then c := c + 1;
  end;
  writeln(c);
if(c >= 5) then write('YES')
   else write('NO');
end.
4,7(68 оценок)
Открыть все ответы
Ответ:
kirillsysoev2
kirillsysoev2
14.04.2023
) целые

В Паскале определено 5 целых типов, которые определяются в зависимости от знака и значения, которое будет принимать переменная.

Название типаДлина (в байтах)Диапазон значений Byte10...255 ShortInt 1-128...+127Word20...65 535 Integer2-32 768...+32 767 LongInt4-2 147 483 648...+2 147 483 647

б) логический

Название этого типа BOOLEAN. Значениями логического типа может быть одна из логических констант: TRUE (истина) или FALSE (ложь).

в) символьный

Название этого типа CHAR - занимает 1 байт. Значением символьного типа является множество всех символов ПК. Каждому символу присваивается целое число в диапозоне 0…255. Это число служит кодом внутреннего представления символа.

2. ВЕЩЕСТВЕННЫЕ ТИПЫ.

В отличие от порядковых типов, значения которых всегда сопоставляются с рядом целых чисел и, следовательно, представляются в ПК абсолютно точно, значения вещественных типов определяют произвольное число лишь с некоторой конечной точностью, зависящей от внутреннего формата вещественного числа.

Длина числового типа данных, байтНазвание числового типа данныхКоличество значащих цифр числового типа данныхДиапазон десятичного порядка числового типа данных4Single7..8-45..+386Real11..12-




он содержит компоненты одного типа. Типом компонентов может быть любой тип Турбо Паскаля, кроме файлов. Иными словами, нельзя создать «файл файлов».длина вновь создаваемого файла никак не оговаривается при его объявлении и ограничивается только ёмкостью устройств внешней памяти.

Файловый тип или переменную файлового типа можно задать одним из трёх

<имя>= FILE OF <тип>;

<имя>=TEXT;

<имя>= FILE;

Здесь <имя> - имя файлового типа (правильный индификатор);

FILE, OF – зарезервированные слова (файл,:

· типизированные файлы (задаются предложением FILE OF…);

· текстовые файлы (определяются типом TEXT);

· нетипизированные файлы (определяются типом FILE).

О преобразовании числовых типов данных Паскаля

В Паскале почти невозможны неявные (автоматические) преобразования числовых типов данных. Исключение сделано только для типа integer, который разрешается использовать в выражениях типа real. Например, если переменные описаны следующим образом:

Var X : integer; Y: real;

то оператор

Y := X+2;

будет синтаксически правильным, хотя справа от знака присваивания стоит целочисленное выражение, а слева – вещественная переменная, компилятор сделает преобразование числовых типов данных автоматически. Обратное же преобразование автоматически типа real в тип integer в Паскале невозможно. Вспомним, какое количество байт выделяется под переменные типа integer и real: под целочисленный тип данных integer выделяется 2 байта памяти, а под real – 6 байта. Для преобразования real в integer имеются две встроенные функции: round(x) округляет вещественное x до ближайшего целого, trunc(x) усекает вещественное число путем отбрасывания дробной части

4,8(29 оценок)
Ответ:
komarenko
komarenko
14.04.2023
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var s:=ReadlnString;
  s:=s.RegexReplace('ма','');
  Writeln('Длина=',s.Length,': ',s)
end.

Пример
Ведьма измазала маслом карман гнома
Длина=25: Ведь иззала слом карн гно

№2

begin
  var s:=ReadlnString;
  Writeln('Количество букв "с" равно ',s.Where(t->t='с').Count)
end.

Пример
Ассистент профессора сидел за столом и что-то писал
Количество букв "с" равно 8

№3

begin
  var s:=ReadlnString;
  var d:=s.Where(t->t='е').Count-s.Where(t->t='о').Count;
  if d>0 then Writeln('Буква "е" встречается чаще буквы "о"')
  else
   if d<0 then Writeln('Буква "о" встречается чаще буквы "е"')
   else Writeln('Буквы "е" и "о" встречаются динаковое число раз')
end.

Пример
Мороз и солнце; день чудесный! Еще ты дремлешь, друг прелестный.
Буква "е" встречается чаще буквы "о"
4,6(10 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ