Петя (1981 в степени снизу 10) года рождения утверждает, что в mcmxciii году ему исполнится (1100 в степени снизу 2) лет. докажите, может ли такое быть и почему?

запишем все числа из условия в привычной нам десятичной системе:

1981 + 12 = 1993

петя абсолютно прав.

 

p.s. единственное замечание: 1993 год уже был, и пете  уже давно исполнилось 12 : )

 

петя абсолютно прав  вроди так

// pascalabc.net 3.4.2, сборка 1782 от 01.09.2018

// внимание! если программа не работает, обновите версию!

begin

  var число : = readinteger('введите трехзначное натуральное число: ');

  var (сотни, единицы) : = (число div 100, число mod 10);

  var десятки : = число div 10 mod 10;

  var произведениецифр : = сотни * десятки * единицы;

  var суммацифр : = сотни + десятки + единицы;

  println('искомый остаток равен', произведениецифр mod суммацифр);

  println('новое число', 100 * сотни + 10 * единицы + десятки)

end.

введите трехзначное натуральное число: 389

искомый остаток равен 16

новое число 398

Program z1; var s, s1, s2, s3, s4, s5, s6, s7, s8: string; begin s: ='программа'; s1: =copy (s, 4, 4); s4: =copy (s, 2, 3); s5: =copy (s, 2, 1); s2: =s4+s5; s6: =copy (s, 4, 1); s7: =copy (s, 3, 1); s8: =copy (s, 5, 2); s3: =s6+s7+s8; writeln (s1, s2, s3); end. посмотри, это пункт а. если то, что нужно, сделаю остальные.. program z1; var s, s1, s2, s3, st, o, l, be, c: string; begin s1: ='страх'; s2: ='белка'; s3: ='цыпленок'; st: =copy (s1, 1, 2); o: =copy (s3, 7, 1); l: =copy (s2, 3, 1); be: =copy (s2, 1, 2); c: =copy (s3, 1, 1); s: =st+o+l+be+c; writeln (s); end.