Question

Пожалуйста очень надо. Пришлите либо фото либо напишите программу здесь

Answer 1

var a:integer;

begin

   write('Введите трёхзначное число: ');

   readln(a);

   if (a >= 100) and (a <= 999) then

       writeln((a div 100) + (a mod 10))

   else writeln('Ошибка! Это не трёхзначное число.');

end.

Answer 2

Ответ:

• var s,n: integer;
• begin
• read(n);
• s := n div 100 + n mod 10;
• write(s);
• end.

или более гибкий вариант, складывает первую и последнюю цифру числа независимо от того, трёхзначное число или нет:

• var n: integer;
• begin
• read(n);
• Print(n.ToString.First.ToDigit + n.ToString.Last.ToDigit);
• end.

Пример работ: