Перевести из C++ в Pascal: 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#include

int main()
{
int a = 30, b = 3, c = 1;
std::cout << a / b << std::endl; // для сравнения

while ( a > b )
{
a -= b;
c++;
}
std::cout << c << std::endl;
return 0;
}

Flash-память представляет собой микросхему, помещенную в миниатюрный плоский корпус. Для считывания или записи информации карта памяти вставляется в специальные накопители, встроенные в мобильные устройства или подключаемые к компьютеру через USB-порт. Информационная емкость карт памяти может достигать 512 Мбайт.К недостаткам flash-памяти следует отнести то, что не существует единого стандарта и различные производители изготавливают несовместимые друг с другом по размерам и электрическим параметрам карты памяти.

Код ниже.

Объяснение:

import math

a = input('Введите любые 3 числа через пробел ==> ')

s = a.split(' ')

sort = [int(i) for i in s]

a = [i for i in sorted(sort)]

b = [int((math.pow(i, 2))) for i in a]

c = [str(i) for i in b]

d = [str(i) for i in a]

print('Введенные числа: ',','.join(d),'Сумма квадратов: ', '+'.join(c),'=',int(sum(b)))

Табуляция тут не нужна. Просто скопировал и вставил код.

При вводе чисел "8 4 6" (через пробел!), вывод будет такой "Введенные числа:  4,6,8 Сумма квадратов:  16+36+64 = 116". Можешь подправить, если что-то не устраивает, в целом программа функционирует и считает все так, как предлагается в условии.

P.S. если тебе нужен ввод чисел именно через запятую, как написано в условии, в строчке "s = a.split(' ')" вместо пробела, поставь запятую в кавычки ""s = a.split(',')"