A = "программирование"
one = ""
two = ""
for i in a:
if one != "программ":
one = one + i
else if two != "мир":
two = two + a
//На питоне это выглядело бы так
const b:array[1..5] of integer = (3, 13, 8, 62, 104);
Вроде всё верно.
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>
Может получиться так:
//Pascal ABC.NET v 3.3
var
x, s: integer;
begin
readln(x);
s := (x div 100) + (x mod 100) + (x mod 10);
writeln(s);
end.
Var x1,x2,x3,x4,x5,max:real;
begin
writeln('x1 x2 x3 x4 x5');
readln(x1,x2,x3,x4,x5);
max:=x1;
if max<x2 then max:=x2;
if max<x3 then max:=x3;
if max<x4 then max:=x4;
if max<x5 then max:=x5;
writeln('Наибольшее число - ',max);
end.