Пожалуйста очень надо. Пришлите либо фото либо напишите программу здесь
Приложения:
![](https://st.uroker.com/files/eb8/eb866b0fd476d5f8771de23dae29e78a.png)
Аноним:
На каком языке?
Ответы
Ответ дал:
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.
Приложения:
![](https://st.uroker.com/files/9dd/9dd1588c091901bccbce24af064ea46a.png)
Ответ дал:
0
Ответ:
- 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.
Пример работ:
Приложения:
![](https://st.uroker.com/files/d5c/d5c26cdc2a448d1949bf4587486f70f5.jpg)
![](https://st.uroker.com/files/7fd/7fd962bb7dbd18f5a3462d3b37834a07.jpg)
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад