Задачу решил, но я ее не смог нормально протестить, но она работает и выдает правильный ответ, вечером посмотрю и если что напишу в комментариях или изменю ответ.
Объяснение:
var syt,koln,s:integer;
x:real;
napr:string;
begin
write ('Введите город (направление):');
read (napr);
writeln();
write ('Введите кол-во направлений: ');
readln (koln);
writeln();
write ('Введите кол-во cуток за который приобретается билет: ');
Задачу решил, но я ее не смог нормально протестить, но она работает и выдает правильный ответ, вечером посмотрю и если что напишу в комментариях или изменю ответ.
Объяснение:
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.