Var
s,sd:string;
i,n,sum,d,err:integer;
begin
Writeln('Введите строку для суммирования');
Read(s);
sum:=0;
n:=Length(s);
if n>0 then begin
i:=2; sd:=s[1];
while i<=n do begin
if s[i]<>'+' then sd:=sd+s[i]
else begin
Val(sd,d,err);
sum:=sum+d;
sd:=''
end;
Inc(i);
end;
Val(sd,d,err);
sum:=sum+d
end;
Writeln('Сумма равна ',sum)
end.
<u><em>Тестовые примеры:</em></u>
Введите строку для суммирования
1+25+3
Сумма равна 29
Введите строку для суммирования
143+38+253+62
Сумма равна 496
Это нужно написать программу или что?
Цвета: белый синий красный зелёный
Квадрат : белый синий красный зелёный
Круг: белый синий красный зелёный
Ромб: белый синий красный зелёный
Треугольник: белый синий красный зелёный
Круг не белый и не зелёный; Треугольник не синий и не зелёный
Квадрат : белый синий красный зелёный
Круг: синий красный
Ромб: белый синий красный зелёный
Треугольник: белый красный
Синяя фигура лежит между ромбом и красной фигурой.
Квадрат лежит между треугольником и белой фигурой
Ромб: белый
Квадрат : синий
Треугольник: красный
Круг: синий красный (Зелёный ? => Неверно)
Синяя фигура лежит между ромбом и красной фигурой.
Квадрат лежит между треугольником и белой фигурой
//Ромб
Квадрат : зелёный
Треугольник: красный
Круг: синий
Ромб: белый
Всмысле вызначиты килькисть крейди, тут не коректне запытання
1)8^10=2^3^10 2^30/2^10(Кбайт)2^10=2^10=1024 <span>Мбайт</span>
2) A= K*b
Надо перевести в биты 4Кб=2^2*2^13=2^15
K=2^15/2^4=2^11=2048 c