Перевести код из Питона во Фри Паскаль: path=input("Enter a path here")
res = path.split('\\')
for r in res:
print(r)
Или сделайте сами на Фри Паскале: В операционной системе Windows путь к файлу состоит из имени логического диска и названий каталогов, в которых находится этот файл. Части пути разделены знаками "\" (обратный слэш). Требуется разбить заданный путь к файлу на части — имя диска и названия каталогов.
Входные данные
Входная строка содержит путь к файлу.
Выходные данные
Программа должна вывести имя диска и названия всех каталогов, составляющих путь. Каждый элемент выводится в отдельной строке.
Потребность считать возникала у людей вместе с появлением цивилизации. Им было необходимо осуществлять торговые сделки, проводить землемерные работы, управлять запасами урожая, следить за астрономическими циклами. Для этого издревле были изобретены различные инструменты, от счётных палочек и абака, в ходе развития науки и техники эволюционировавшие в калькуляторы и разнообразные вычислительные устройства, в том числе и персональные компьютеры. В 1950-60х годах компьютеры были доступны только крупным компаниям из-за своих размеров и цены. В конкурентной борьбе за увеличение продаж фирмы, производящие компьютеры, стремились к удешевлению и миниатюризации своей продукции. Для этого использовались все современные достижения науки: память на магнитных сердечниках, транзисторы, и наконец микросхемы. К 1965 году мини-компьютер PDP-8 занимал объём, сопоставимый с бытовым холодильником, стоимость составляла примерно 20 тыс. долларов, кроме того, наблюдалась тенденция к дальнейшей миниатюризации. Kenbak-1 Digital Computer известен многим как действительно один из первых в мире персональных компьютеров, коммерческая модель. Сейчас этот ПК выставлен на продажу. Впервые устройство ценой в $750 было представлено Джоном Бланкенбекером в 1971 году, за много лет до появления Altair 8800 и Apple I. Правда, до него был выпущен Datapoint 2200.
Создатель KEnbak-1 позиционировал свое устройство, как образовательную систему, позволяющую школьнику или взрослому человеку научиться началам программирования. Процессора здесь не было, а объем ОЗУ — всего 256 байт. Всего было произведено 50 таких устройств, некоторые из которых сейчас появляются на аукционах и в музеях «железа».
Выбери то что тебе нужно!
#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;
}