Справочник вопросов и ответов
QUOR - электронный справочник

посчитайте с заданием по информатике. В программе pascal ABC

Тег: Информатика

1)

  • program p1;
  • var x:integer;
  • begin
  • writeln('Введите трёхзначное число');
  • readln(x);
  • writeln('Самая левая цифра числа: ', x div 100);
  • end.

2)

  • program p2;
  • var x,y:integer;
  • begin
  • writeln('Введите двухзначное число');
  • readln(x);
  • y:=x div 10+x mod 10;
  • writeln('Сумма цифр числа: ', y);
  • end.
254