Полное имя файла включает в себя путь и имя(название) файла.
Var p,h,e,s,t,x: integer;
begin write('Введите стоимость проезда в 1 сторону: ');
readln(p);
write('Введите стоимость проживания в двухместном номере в сутки: ');
readln(h);
write('Введите стоимость питания в сутки: ');
readln(e);
write('Введите стоимость страховки: ');
readln(s);
write('Введите стоимость трансфера: ');
readln(t);
x:=p*2+h*7+e*7+s+t;
writeln('Стоимость тура = ',x, '$', ' - ', x*34.75, 'руб');
<span>end.</span>
Объяснение:
Вариант 6
const
N = 10;
var
a: array[1..N] of integer;
i, max1, max2: byte;
begin
randomize;
for i:=1 to N do begin
a[i] := random(10);
write(a[i]:3);
end;
writeln;
max1 := 1;
for i:=2 to N do
if a[i] > a[max1] then
max1 := i;
if max1=1 then
max2 := 2
else
max2 := 1;
for i:=2 to N do
if i <> max1 then // чтобы пропустить max1
if a[i] > a[max2] then
max2 := i;
writeln(max1,' ', a[max1]);
writeln(max2,' ', a[max2]);
end.
Вариант 8 не получилось
a = 1
n = 4 #odd
b = 3 #even
while a != -1:
a = int(input("Insert number:"))
if a == -1:
break
if > b
b += 1
if a > n
n += 1
print(odd)
Плюшевый мишка. Он белый,пушистый,милый мишка. Он умеет стоять ,лежать ,сидеть и смотреть.