Var st: string; i, s, x, err: integer; begin write('Vvedite stroku: '); readln(st); for i:=1 to length(st) do begin val(st[i], x, err); s:=s+x; end; writeln('Summa = ', s); readln; end.
1. Базовым понятием объектно-ориентированного программирования является: 4) объект 2. Объектно-ориентированное программирование - это: 2) метод программирования, суть которого состоит в разработке программы в виде взаимодействующих объектов 3. Методы - это ... 2) действия, которые можно выполнить над объектом или которые сам объект может выполнить 4. Укажите типы числовых переменных, принимающих только целые значения: 2) Long; 5. Укажите тип переменной которой соответствует логическое значение True или False: 3) Boolean 6. Что изменяет операция присваивания? 1) значение переменной 7. Среди приведенных записей укажите те, которые могут быть именами переменных: 1) sngSum 2) Dim 3) intX124 7) B4 8. Каково будет значение переменной после выполнения операций присваивания: intX = 5 intX = intX + intX 4) 10
10. Объявите переменную А и присвойте значение 155:
st: string;
i, s, x, err: integer;
begin
write('Vvedite stroku: ');
readln(st);
for i:=1 to length(st) do
begin
val(st[i], x, err);
s:=s+x;
end;
writeln('Summa = ', s);
readln;
end.