1. Понятие и соотношение авторского права и права промышленной собственности. 2. История и современное назначение знака C в круге 3. Средства индивидуализации объектов права. Классификация
Задачу решил, но я ее не смог нормально протестить, но она работает и выдает правильный ответ, вечером посмотрю и если что напишу в комментариях или изменю ответ.
Объяснение:
var syt,koln,s:integer;
x:real;
napr:string;
begin
write ('Введите город (направление):');
read (napr);
writeln();
write ('Введите кол-во направлений: ');
readln (koln);
writeln();
write ('Введите кол-во cуток за который приобретается билет: ');
По-идеи выведется число 0. Если же перед строкой f(11) будет # , то ничего.
Объяснение:
f(11) обращаемся к функции f с значением 11
если 11 больше 0, то:
обратиться к функции g с значением 11-1 , тоесть 10
если 10 больше 1 , то:
обратиться к функции f со значением 10-3 , тоесть 7
Теперь если 7 больше 0, то:
обратиться к g с значением 7-1
если 6 больше 1, то:
обратиться к f с значением 6-3
Теперь если 3 больше 0, то:
обратиться к g с значением 3 - 1
если 3 больше 1, то:
обратиться к f с значением 3-3 = 0
Скрипт завершён. Вывелось число 0.
Задачу решил, но я ее не смог нормально протестить, но она работает и выдает правильный ответ, вечером посмотрю и если что напишу в комментариях или изменю ответ.
Объяснение:
var syt,koln,s:integer;
x:real;
napr:string;
begin
write ('Введите город (направление):');
read (napr);
writeln();
write ('Введите кол-во направлений: ');
readln (koln);
writeln();
write ('Введите кол-во cуток за который приобретается билет: ');
read(s);
if napr='Москва' then begin
if koln=1 then
x:=2500
else
x:=4200;
end;
if napr='Санкт-Петербург' then begin
if koln=1 then
x:=2300
else
x:=3700;
end;
if napr='Казань' then begin
if koln=1 then
x:=2400
else
x:=4200;
end;
if napr='Сочи' then begin
if koln=1 then
x:=3400
else
x:=5200;
end;
if syt>45 then
x:=x-(x/100*20);
if syt>20 then
x:=x-(x/100*10);
if (x=1) or (x=2) or (x=3) then
x:=x-(x/100*3);
writeln ('Cтоимость билетов на троих: ',x*3);
end.