Сумма элементов строки в паскале - есть ответ

Kan-Kiro, 17 просмотров

-2

Нужно составить программу, которая подсчитывает кол-во кружочков в цифрах (0. 6, 8, 9). Вводятся 4 цифры, записываются в string(или массив?), а вот как потом присвоить этим цифрам 0:=1; 6:=1; 8:=2; 9:=1; и найти их сумму?

Ответы:

Delfi

Кому нужно, нам или тебе?

Артёмка

Примерно так:
var: a: array['0'..'9'] of integer;
sum, i: integer;
s: string;
begin
a['0'] := 1;
a['6'] := 1;
a['8'] := 2;
a['9'] := 1;
sum := 0;
readln(s);
for i := 1 to length(s) do
sum := sum + a[s[i]];
end.

fantik

Делаешь изначальный массив kr[0..9] из кол-ва кружочков.
Ставишь sum := 0. Вводишь строку.
Потом пробегаешься по строке symb от начала до конца, и для каждого элемента symb[i] прибавляешь kr[symb[i]] к sum
Выводишь sum

Mas'an

for i:=0 to 4 do
begin
if x[i]=0 then x[i]:=1;
elseif x[i]=6 then.....
......
elsу x[i]:=0;
end;

16 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.