Var p1, p2, p3, p4, p5:integer;
uses crt;
begin
writeln('Введите цену 1 товара:');
readln(p1);
writeln('Введите цену 2 товара:');
readln(p2);
writeln('Введите цену 3 товара:');
readln(p3);
writeln('Введите цену 4 товара:');
readln(p4);
writeln('Введите цену 5 товара:');
readln(p5);
writeln('Цена вашей покупки составляет ',p1+p2+p3+p4+p5);
end.
P.S. Надеюсь на Лучший ответ.
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->x.IsEven).Count());
end.
Файловые системы: FAT32, NTFS, <span>exFAT и FAT
Чтобы выбрать файловую систему при форматирование нужно нажать на соответствующий список выбора файловой системы, по умолчанию стоит FAT32.</span>
Это задача по комбинаторике
всего у нас 10 букв, но главное что они повторятся
У - 2
Т - 1
Р - 1
Ы - 1
И - 2
К - 1
Б - 2
Далее вычисляем кол-во перестановок с повторениями. (Формула в приложении с обьяснением из вики)
N = 10! / (2! * 2! * 2! * 1! * 1! * 1! * 1! ) = 10! / 8 = 453 600