Program gt;
var a,b,c,d,min:integer;
begin
read(a,b,c,d);
min:=a;
if(b<min)then min:=b;
if(c<min)then min:=c;
if(d<min)then min:=d;
writeln(min);
end.
Если там вещественные числа то в var-е вместо integer напиши rel
Презентацию можно создать в PowerPoint'е. Запуская его, первой страницей будет титульный лист. На нем пишется тема презентации и кто подготовил.
Чтобы добавить слайды нужно нажать на кнопку "Создать слайд" (см. первый скрин).
Чтобы презентация была красочнее есть вставка различных объектов: изображений, звуков, фигур и прочего (см. второй скрин). Нажимаете на нужную кнопку, выберите, что надо и оно будет в презентации.
Также есть различные темы оформления, их можно скачивать из Интернета или пользоваться уже загруженными (см. третий скрин).
Есть анимация слайдов и показов слайдов, тоже можно выбрать (см. четвертый и пятый скрины).
Есть очень много примеров в YouTube или обычных статьях. Пусть подруга лучше их посмотрит/прочитает.
А) металл ;цифровая
б) бумага (картон); цифровая (индекс), текстовая, графическая
в) бумага; текстовая, цифровая
г) бумага; цифровая, текстовая, графическая
д)оптический или цифровой диск; видео, аудио.
насчет диска точно не знаю, извини))
//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)
var
a:integer;
begin
read(a);
writeln('Произведение десятков: ',(a mod 10)*(a div 10 mod 10)*(a div 100)*1000);
writeln('Произведение единиц: ',(a mod 10)*(a div 10 mod 10)*(a div 100));
readln;
readln;
end.
Пример:
123
Произведение десятков: 6000
Произведение единиц: 6