ПОМОГИТЕ ПЛИЗ!!! СРОЧНО НАДО!!!
1. Составить программу решающую следующую задачу: дано трехзначное число. В нем зачеркнули первую цифру слева и приписали ее справа. Вывести полученное число.
2. Составить программу решающую следующую задачу: дан номер некоторого года (целое положительное число) . Определить соответствующий ему номер столетия , учитывая, что, к примеру, началом 20 столетия был 1901 год.
Var n: integer;begin{задание 1} write(число: ); readln(n); n:=(n mod 100)*10 + n div 100; writeln(новое число: ,n);{задание 2} write(год: ); readln(n); if (n mod 100)=0 then n:=n div 100 else n:=(n div 100)+1; writeln(номер столетия: ,n);end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
