Program zamena; var s:string; x,y:char; begin write('Введите четырехзначное число: '); readln(s); x:=s[1]; y:=s[4]; s[1]:=y; s[4]:=x; writeln('Полученное число: ',s); end.
Считываем число как строку. Символьной переменной "X" присваиваем значение первого символа строки (первой цифры числа). Символьной переменной "Y" присваиваем значение четвертого символа строки (четвертой цифры числа). Делаем обмен первой и четвертой цифры числа: присваиваем первому символу значение переменной "Y", а четвертому символу - значение переменной "X". Выводим получившуюся строку (число) на экран.
Uses crt; var chislo,i,happy,ten: integer; a: array [1..6] of integer; begin happy := 100002; {наименьшее число,кратное 7} ten:=1; {счётчик колонок} while happy<999999 do begin {делим число happy на цифры с временной переменной chislo} {и сохраняем эти цифры в массиве а} chislo := happy; for i:= 1 to 6 do begin a[i] := chislo mod 10; chislo:= chislo div 10; end; {проверяем,счастливое ли число} if (a[1] + a[2] + a[3] = a[4] + a[5] + a[6]) then begin {если счастливое,то выводим} write(happy,' '); ten:=ten+1; if ten>10 then {если уже напечатано 10 чисел, то переходим в новую строку} begin ten:=1; writeln(); end; end; happy:=happy+7; end; end.
begin readln(x); arr := x.Split(' ')[1].ToCharArray(); System.Array.Reverse(arr); writeln(length(arr), ' ', new string(arr)); end.
var c: array of integer := (10, 20, 10, 30, 40, 50, 55, 1, 5, 9, 4, 3, 2); r, q, s: real; i, a, b: byte;
begin q := 1; i := 1; r := c.Min(); while (i < length(c)) do begin q *= c[i]; i += 2; end; readln(a, b); s := b - a - 1; writeln('T = ', (R / Q + 1) + S); end.
const k = 5; p = 5;
var f: array [1..k, 1..p] of string; o: real; df: byte;
begin for i: byte := 1 to k do begin for j: byte := 1 to p do begin f[i, j] := random(10, 99).ToString(); write(f[i, j]:3); if (j >= 7 - i) then begin o += integer.Parse(f[i, j]); df += 1; f[i, j] := '██'; end; end; writeln(); end; writeln(); for i: byte := 1 to k do begin for j: byte := 1 to p do write(f[i, j]:3); writeln(); end; writeln(o / df); end.
var s:string;
x,y:char;
begin
write('Введите четырехзначное число: ');
readln(s);
x:=s[1]; y:=s[4];
s[1]:=y; s[4]:=x;
writeln('Полученное число: ',s);
end.
Считываем число как строку. Символьной переменной "X" присваиваем значение первого символа строки (первой цифры числа). Символьной переменной "Y" присваиваем значение четвертого символа строки (четвертой цифры числа). Делаем обмен первой и четвертой цифры числа: присваиваем первому символу значение переменной "Y", а четвертому символу - значение переменной "X". Выводим получившуюся строку (число) на экран.