Var i, a, b, n, n2, j: longint; s: string; flag: boolean;
begin Write('Введите через пробел границы диапазона: '); Readln(a, b); if b < a then begin n := a; a := b; b := n end; if a < 11 then a := 11; for i := a to b do begin Str(i, s); n := Length(s); n2 := n div 2; flag := true; j := 1; repeat flag := (s[j] = s[n - j + 1]); j := j + 1 until (not flag) or (j > n2); if flag then Write(i, ' ') end; end.
program xopow1; uses crt; var a, b, Sek: integer; begin writeln('Введите границы:'); repeat readln(a, b); until b >= a; clrscr; for a := a to b do begin Sek := a * 60; writeln(a, ' мин. = ', sek, ' сек.') end end.
2.
program xopow2; uses crt; Var z:integer; f,x,y:real; Begin clrscr; Writeln; X:=10000; Y:=(x/100)*10; for z:=1 to 7 do Begin X:=x+y; Writeln(Z,' -й день тренировок спортсмен пробежал ',X:3:2,' Км.'); End; Writeln('Нажмите Enter...'); Readln; end.
var x, a, S: real; i: integer;
begin
readln(x);
S:=0;
for i:=0 to 21 do
begin
a:=(i/10)*x;
S:=a+S;
end;
writeln(S);
end.