ИНФОРМАТИКА 9 КЛАСС ДАЮ 50 БАЛЛОВ написать программу в ABCпаскаль которая вычисли?
ИНФОРМАТИКА 9 КЛАСС ДАЮ 50 БАЛЛОВ
написать программу в ABCпаскаль
которая вычисли?? сумму цифр пятизначного числа и определит находится ли эта сумма в диапазоне от 20 до 25 включительно(<= или >=)
Гость
Ответ(ы) на вопрос:
Гость Var
i, 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.
Не нашли ответ?
Похожие вопросы