Ответ:
program z;
var a: integer;
begin
read (a);
write (a div 100 + a mod 10);
end.
Объяснение:
вводить трехзначное число
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
program z;
var a: integer;
begin
read (a);
write (a div 100 + a mod 10);
end.
Объяснение:
вводить трехзначное число
var A, a1, a3, s: integer;
Begin
Write('Задайте 3-хзначное число: ');
Readln (A);
a1:=A div 100;
a3:=A mod 10;
s:=a1+a3;
Writeln ('Число ',A, ' сумма крайних цифр: ', s);
End.