напишите линейную программу в результате выполнения которой в целочисленной переменной S получится перевернутое целое четырехзначное число k.Например:
5-9 класс
|
если k=1357, то S=7531
var a, b, c, d, s, k: integer;
begin
write('Введите k: '); readln(k);
a := k div 1000; {тысячи}
b := (k mod 1000) div 100; {сотни}
c := (k mod 100) div 10; {десятки}
d := k mod 10; {единицы}
s := d * 1000 + c * 100 + b * 10 + a;
writeln('k = ', k, #10, 's = ', s);
end.
Другие вопросы из категории
скопировали её во все ячейки диапазона F2:F11, кроме одной, таким образом, что содержимое ячейки H1 стало равно 50. В какую ячейку НЕ скопировали формулу?
берег.У берега стояла лодка,которая могла вместить только двух человек.Купцы боязливо поглядывали на разбойников,так как знали,что во время переправы всякое случится.Если во время переправы на берегу число разбойников и купцов бкдет одинаковым то разбойники не тронут купцов,а если разбойников превысит число купцов хотя бы на одного человека,то разбойники убьют купцов.Сколько рейсов они сделают что бы переправится благополучно?За рейс следует считать движение лодки в одном направление.
соответствующее сообщение является либо не является
Читайте также
дополнительные переменные.
если k=1357, то S=7531.
значение FALSE в противном случае:
a) x -- положительное число
б) хотя бы одно из чисел x,y,z равно нулю
в) числа x,y,z равны между собой
г) уравнение ax^2+bx+c=0 имеет ровно один корень
выполняется указанное условия, и значение FALSE иначе: а) x-неотрицательное число б) среди чисел x, y, z хотя бы два равны между собой в) уравнение ax(во 2 степени)+bx+c=0 не имеет корней
отбора сотрудников.
Напишите программу, в результате выполнения которой первое введенное число уменьшается в 3 раза, если оно больше третьего, а третье становится разностью третьего и второго, если оно больше второго