1. составить программу решающую следующую : дано трехзначное число. в нем зачеркнули первую цифру слева и приписали ее справа. вывести полученное число. 2. составить программу решающую следующую : дан номер некоторого года (целое положительное число) . определить соответствующий ему номер столетия , учитывая, что, к примеру, началом 20 столетия был 1901 год.

272

411

Посмотреть ответы 2

Ответы на вопрос:

pukan03424

Информатика

4,7(23 оценок)

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.