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.
Тестовые примеры: Введите строку для суммирования 1+25+3 Сумма равна 29
Введите строку для суммирования 143+38+253+62 Сумма равна 496
Лист формата А4 имеет размер 297х210 мм. В 1 дюйме 25.4 мм, тогда размер в дюймах будет примерно равен 11.7х8.27. Разрешение сканера 600 dpi означает, что каждый линейный дюйм содержит 600 точек (пикселей) изображения. Тогда размер изображения в пикселях будет 7020х4962. Палитра в 1048576 цветов требует для кодирования бит. Теперь можно найти размер изображения: 7020х4962х20 = 696 664 800 бит. Для перевода в байты делим на 8 и получаем 87 083 100 байт. Выразим размер в мегабайтах, для чего разделим его на 1024² 87 083 100 / (1024х1024) ≈ 83.05 Мбайт
бит.
var n: integer;
begin
n:=10;
while n<100 do begin
if n mod 5 = 0 then
writeln (n);
n:=n+1;
end;
end.