ПОМОГИТЕ ПЛИЗ!!! СРОЧНО НАДО!!! 1. Составить программу решающую следующую задачу: д?
ПОМОГИТЕ ПЛИЗ!!! СРОЧНО НАДО!!!
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.
Не нашли ответ?
Похожие вопросы