4 года назад

Напишите на Paskal Введите строку в которой записана сумма натуральных чисел например '1+25+3'

1 ответ:

0 0

Var
i, sum, beg:integer;
str:string;

begin
sum:=0;
beg:=1;
readln(str);
for i:=1 to Length(str) do
if str[i]='+' then
begin
sum:=sum+StrToInt(Copy(str, beg, i-beg));
beg:=i+1;
end;
sum:=sum+StrToInt(Copy(str, beg, Length(str)));
writeln(sum);
end.

Читайте также

О дате рождения одного китайского поэта известно,что он родился ранее 1100 года,но позднее 1070,а также,что год кратен 7 и 5 одн

LuciferRUS

10 INPUT D
30 IF D > 1070 AND D < 1100 AND D MOD 7 = 0 AND D MOD 5 = 0
 THEN PRINT "Вводимый год может быть годом рождения китайского поэта"
 ELSE PRINT "Вводимый год не может быть годом рождения китайского поэта"
END IF
40 END

0 0

4 года назад

Загадано имя файла и даны три маски файлов ,однозначно определяющих это имя:?*sk*?.*j*?? *os?*al.*p? m?*kv*?.*??g Известно,что

Сашк0

Moskval.jpg (это если последний символ имени l, а не 1)

0 0

4 года назад

Прочитать ещё 2 ответа

Cоставить алгоритм решения задачи с помощью алгоритмической и графической формы записи- "Дан земельный участок прямоугольной фор

EvgeniaLichau [17]

Program Z1;
Var a,b,S:integer;
Begin
Readln(a,b);
S:=a*b;
Writeln(S);
end.

0 0

4 года назад

Задание по программированию 8 класс.Pascal. По холсту перемещаются два шарика разного цвета и разного радиуса,один - слева напра

Tatyana344

Программа с комментариями и результат её работы в прикрепленном изображении

0 0

4 года назад

Плиз, Срочно: Написать программу нахождения суммы и произведения всех трехзначных чисел кратных 3!

SkRIPacHv2 [588]

program raf105;

var i,sum,pro,a:integer;

begin

writeln('Вводите 5 чисел по очереди');

pro:= 1;

for i:=1 to 5 do

begin

readln(a);

if (a>=100) and (a<=999) and ((a mod 3)=0)

then

begin

sum+= a;

pro*= a;

end;

writeln('Сумма трёхзначных чисел кратных трём: ',sum);

writeln('Произведение трёхзначных чисел кратных трём: ',pro);

end.

Язык PascalABC

0 0

4 года назад