задачи на паскале.

[azon]

всем доброго вечера. собственно нужно помочь верно решить задачи на паскале, базовый курс 11 класса.

или же буду очень благодарен за предоставленную помощь.

1 Задача решена. спасибо zettor.

2 задача

дано четырех значное число. найти число, образованное перестановкой двух первых и двух последних цифры заданного числа, например из числа 7485 получится 8574.

3 задача

Из трехзначного числа х вычли его послденюю цифру. когда результат разделили на 10, а к частному слева приписали последнюю цифру числа х, то получилось число у.

найти число х по заданному значению числа у. значение у вводится с клавиатуры; 99 < y < 1000; число десятков в у не равно нулю.

4 задача

В трехзначном числе х зачеркнули его второую цифру.

когда к образовавшемуся двухзначному числу влева приписали вторую цифру числа х, то получилось число у. По заданому у найти чисто х.

значение у вводится с клавиатуры; 99 < y < 1000; число десятков в у не равно нулю.

5 задача

С начала суток пришло n секунд. определить, сколько целых часов прошло с начала суток.

6 задача

составить пррограмму для нахождения четырехзначного числа. ниже предоставлен пример диалога. данные, вводимые пользователем, выделены жирным шрифтом.



Введите четырехзначное число

3281
Число тысяч равно 3

число сотен равно 2

Число десятков равно 8

Число едениц равно 1

7 Задача решена. спасибо zettor

[Stilet]

в нем зачеркнули последнюю справа цифру и приписали ее в конце.

675. Зачеркиваем 5 - 67. Приписываем зачеркнутое в конец - 675. Ответ очевиден - грибы рулят.

[azon]

Сообщение от Stilet

675. Зачеркиваем 5 - 67. Приписываем зачеркнутое в конец - 675. Ответ очевиден - грибы рулят.

так ничего и не понял. где решение задачи?

тут нудно использовать данную формулу:
x mod 10 * 100 +x div * 10

многие задачи бы реализовать в решении на паскале(

[zettor]

type digits = 0..9;
var a: array [1..4] of digits;
    ch,i,pr:longint;
begin
readln (ch);
i:= 4;
while ch<>0 do
begin
pr:= ch mod 10;
a[i]:= pr;
dec (i);
ch:= ch div 10;
end;
a[1]:= a[4];
for i:= 1 to 3 do
write (a[i]);
end.

Первая

var i,p,p1: integer;
begin
readln (i);
p:= i mod 100;
p1:= i div 100;
write (p,p1);
end.

Вторая

[azon]

Сообщение от zettor

type digits = 0..9;
var a: array [1..4] of digits;
ch,i,pr:longint;
begin
readln (ch);
i:= 4;
while ch<>0 do
begin
pr:= ch mod 10;
a[i]:= pr;
dec (i);
ch:= ch div 10;
end;
a[1]:= a[4];
for i:= 1 to 3 do
write (a[i]);
end.

Первая

все что выделено жирным шрифтом - не давалось на теории. учитель не поймет откуда я все это взял но все равно спасибо тебе!

[zettor]

var i,p: integer;
begin
readln (i);
p:= i div 100;
i:= i mod 100;
i:= i*10+p;
write (i);
end.

Вроде так первая

[_-Re@l-_]

Ответ очевиден - грибы рулят.

Эт точно .Надо же придумать задачу, где дано само число и нужно вычислить его же....

[azon]

Сообщение от zettor

var i,p: integer;
begin
readln (i);
p:= i div 100;
i:= i mod 100;
i:= i*10+p;
write (i);
end.

Вроде так первая

спасибо, работает.

[zettor]

var n,ch: integer;
begin
readln (n);
ch:= n div 3600;
writeln (ch);
end.

Задача с часами

var c,ch,min: integer;
begin
readln (c);
ch:= c div 60;
min:= c - ch*60;
writeln (c,' мин = ',ch,' часов ',min,' минут');
end.

Последняя

эти задачи легкие, надо просто знать когда брать остаток или целочисленное деление. чтобы зачеркнуть 2 цифру в трехзначном числе например 356 надо взять остаток от деления на 100 - 56 и в нем целочисленно поделить на 10 - 56.

[azon]

Сообщение от zettor

var n,ch: integer;
begin
readln (n);
ch:= n div 3600;
writeln (ch);
end.

Задача с часами

выдает ошибку при запуске.

последняя задача решена верно, спасибо.