ИНФОРМАТИКА 9 КЛАСС ДАЮ 50 БАЛЛОВ
написать программу в ABCпаскаль
которая вычислит сумму цифр пятизначного числа и определит находится ли эта сумма в диапазоне от 20 до 25 включительно(<= или >=)
написать программу в ABCпаскаль
которая вычислит сумму цифр пятизначного числа и определит находится ли эта сумма в диапазоне от 20 до 25 включительно(<= или >=)
More Questions From This User See All
Answers & Comments
Verified answer
Vari, c: int64;
s: string;
begin
readln(s);
if(s.Length = 5) then
begin
for i := 1 to 5 do
c := c + strtoint(s[i]);
writeln(c);
if(c >= 20) and (c <= 25) then write('Находится')
else write('Не находится');
end;
end.