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

Перевести код из Питона во Фри Паскаль: path=input("Enter a path here")

res = path.split('\\')

for r in res:

print(r)

Или сделайте сами на Фри Паскале: В операционной системе Windows путь к файлу состоит из имени логического диска и названий каталогов, в которых находится этот файл. Части пути разделены знаками "\" (обратный слэш). Требуется разбить заданный путь к файлу на части — имя диска и названия каталогов.

Входные данные
Входная строка содержит путь к файлу.

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

Показать ответ
Ответ:
tylkinavaleriya
tylkinavaleriya
13.04.2020 10:56

Потребность считать возникала у людей вместе с появлением цивилизации. Им было необходимо осуществлять торговые сделки, проводить землемерные работы, управлять запасами урожая, следить за астрономическими циклами. Для этого издревле были изобретены различные инструменты, от счётных палочек и абака, в ходе развития науки и техники эволюционировавшие в калькуляторы и разнообразные вычислительные устройства, в том числе и персональные компьютеры. В 1950-60х годах компьютеры были доступны только крупным компаниям из-за своих размеров и цены. В конкурентной борьбе за увеличение продаж фирмы, производящие компьютеры, стремились к удешевлению и миниатюризации своей продукции. Для этого использовались все современные достижения науки: память на магнитных сердечниках, транзисторы, и наконец микросхемы. К 1965 году мини-компьютер PDP-8 занимал объём, сопоставимый с бытовым холодильником, стоимость составляла примерно 20 тыс. долларов, кроме того, наблюдалась тенденция к дальнейшей миниатюризации. Kenbak-1 Digital Computer известен многим как действительно один из первых в мире персональных компьютеров, коммерческая модель. Сейчас этот ПК выставлен на продажу. Впервые устройство ценой в $750 было представлено Джоном Бланкенбекером в 1971 году, за много лет до появления Altair 8800 и Apple I. Правда, до него был выпущен Datapoint 2200.

Создатель KEnbak-1 позиционировал свое устройство, как образовательную систему, позволяющую школьнику или взрослому человеку научиться началам программирования. Процессора здесь не было, а объем ОЗУ — всего 256 байт. Всего было произведено 50 таких устройств, некоторые из которых сейчас появляются на аукционах и в музеях «железа».

Выбери то что тебе нужно!

0,0(0 оценок)
Ответ:
darinchiiik
darinchiiik
19.03.2021 21:42

#include <iostream>

#include <stdlib.h>

using namespace std;

int main()

{

   int arr[10], sum = 0; // Создаём массив и переменную, в которой будет сумма

   for (int i = 0; i < 10; i++) {

       int r = rand() %11 - 5; // Генерация случайного числа в промежутке от [-5; 5]

       arr[i] = r; // Присваем значение перменной

       cout << arr[i] << " "; // Вывод массива.

   }

   cout << endl;

   for (int i = 0; i < 10; i++) {

           if (arr[i] > 0) {  

           sum += arr[i]; // sum = sum + arr[i]

       }

   }

   cout << "Summa polozhitelnih: " << sum << endl;

   return 0;

}

Более оптимальный

#include <iostream>

#include <stdlib.h>

using namespace std;

int main()

{

   int arr[10], sum = 0; // Создаём массив и переменную, в которой будет сумма

   for (int i = 0; i < 10; i++) {

       int r = rand() %11 - 5; // Генерация случайного числа в промежутке от [-5; 5]

       arr[i] = r; // Присваем значение перменной

       cout << arr[i] << " "; // Вывод массива.

       if (i == 9) { cout << endl;}

       if (arr[i] > 0) {  

           sum += arr[i]; // sum = sum + arr[i]

       }

   }

   cout << "Summa polozhitelnih: " << sum << endl;

   return 0;

}

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