Помогите пожалуйста я с математикой не дружу на 2 знаю. А мне по информатике тяжелые задачи дали на паскале. Помогите написать пожалуйста программу по выполнению этих номеров. Дам 69 баллов. Мне очень надо у меня 5 выходит не хочу испортить оценку. Можете ответы типа begin
end.
![](https://files.topotvet.com/i/081/081e8018cadc175e69e7bae6ba855a58.jpg)
Ответы
Номер 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 я незнаю
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.