Var
d: integer;
begin
read(d);
writeln(24*d,' часов = ',60*24*d,' минут = ',60*60*24*d, ' секунд');
end.
Ответ:
С++
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "rus");
int a, b, c;
cout<<"введите кол-во книг, стоящих на полке"<<endl;
cin>>a;
cout<<"введите количество полок"<<endl;
cin>>b;
c=a*b;
cout<<"кол-во книг в магизине: "<<с<<endl;
}
Объяснение:
чтобы найти количество книг нужно вычислить произведение кол-во книг на одной полке и кол-во полок.
Раз надо найти индексы, значит это массив
//Pascal
const n = 12;
var a:array[1..n] of real;
min,max:real;
imin,imax,i:integer;
begin
max:=-999999;
min:=999999;
for i:=1 to n do begin
readln(a[i]);
if a[i]<min then begin
min:=a[i]; imin:=i;
if a[i]>max then begin
max:=a[i]; imax:=i;
end;
writeln ('Максимальный ',max,'индекс',imax);
writeln ('Минимальный',min,'индекс',imin);
writeln ('Сумма', max+min);
end.