надо сделать следующее: составить программу, решающую - вопрос №2569655 от dvs2504 08.11.2022 07:07

Question

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

dvs2504 · Answer

Составить программу, решающую следующую задачу:
program l4;
var
n,k: integer;
begin
  Writeln('Vvedi chislo');
  readln(n);
  k:=n div 100;
  n:=n mod 100;
  writeln(n,k);
end.