Помогите пожалуйста я с математикой не дружу ** 2 знаю. А мне по информатике тяжелые...

Question

Помогите пожалуйста я с математикой не дружу на 2 знаю. А мне по информатике тяжелые задачи дали на паскале. Помогите написать пожалуйста программу по выполнению этих номеров. Дам 69 баллов. Мне очень надо у меня 5 выходит не хочу испортить оценку. Можете ответы типа begin end.

---

Comments

информатику без математики учить бесполезно

Answer 1

Номер 1

Var

s, n:integer;

begin

readln(n) ;

s:=0;

s:=n div 10;

writeln('Десятки',s);

s:=n mod 10;

writeln('Еденицы',s);

end.

Номер 3

Var

s, a, n:integer;

begin

readln(n) ;

s:=0;

a:=0;

s:=n div 10;

a:=n mod 10;

WriteLn(a, s)

end.

Номер 4

Var

s, k, b, a, n:integer;

begin

readln(n);

s:=n mod 10;

a:=n div 10;

k:=a mod 10;

b:=a div 10;

WriteLn(s, k, b);

end.

Номер 2 и 5 я незнаю

Answer 2

1)

begin

 var n:=ReadLnInteger('Введите двузначное число: ');

 writeln('Десятки: '+(n div 10));

 writeln('Единицы: '+(n mod 10));

end.

2)

begin

 var b:=ReadLnInteger('Введите размер в байтах: ');

 writeln((b div 1024) + ' Кбайт и ' + (b mod 1024) + ' бит');

end.

3)

var n:=ReadLnInteger('Введите двузначное число: ');

writeln((n mod 10)*10+n div 10);

end.

4)

begin

var n:=ReadLnInteger('Введите трехзначное число: ');

writeln((n mod 10)*100+(n div 10 mod 10)*10+n div 100);

end.

5)

begin

 var n:=ReadLnInteger('Введите количество секунд: ');

 writeln('Количество полных минут, прошедших с начала последнего часа: ', N mod 3600 div 60);

 writeln('Количество секунд, прошедших с начала последней минуты: ', N mod 60);

end.