Создать программу в abc pascal(с строк сделать): ввести строку состоящюю из различных символов и определить: 1) произведение цифр входяящих в эту строку(произведение может быть большим)ж 2) сумму цифр входящих в эту строку, если эти велечины есть

211

255

Посмотреть ответы 2

Ответы на вопрос:

Nastiya320

Информатика

4,7(91 оценок)

Program str; uses crt; var s: string; i,p,sum: integer; begin p: =1; sum: =0; readln(s); for i: =1 to length(s) do begin if s[i] in ['0'..'9'] then begin p: =p*(ord(s[i])-ord('0')); sum: =sum+(ord(s[i])-ord('0')); end; end; writeln('сумма = ',sum,' ','произведение = ',p); end.

D102006

Информатика

4,8(68 оценок)

/* 1. описать класс с именем marsh, содержащую следующие, поля: • begst — название начального пункта маршрута; • term — название конечного пункта маршрута; • numer — номер маршрута. 2. написать программу, выполняющую следующие действия: • ввод с клавиатуры данных в массив trafic, состоящий из 3 элементов типа marsh; • вывод на экран информации о маршруте, номер которого введен с клавиатуры; • если таких маршрутов нет, выдать на дисплей соответствующее сообщение. */ #include < iostream> using namespace std; class marsh { public: string begst, term, numer; marsh(string b, string t, string n) : begst(b), term(t), numer(n) { } marsh() {} void info() { cout < < "маршрут №" < < numer < < " (" < < begst < < '-' < < term < < ')'; } }; int main() { marsh traffic[3]; string b, t, n; for (int i = 0; i < 3; i++) { cout < < "ввод данных для маршрута " < < i < < ': ' < < endl; cout < < "название начального пункта маршрута: "; cin > > b; cout < < "название конечного пункта маршрута: "; cin > > t; cout < < "номер маршрута: "; cin > > n; cout < < endl; traffic[i] = marsh(b, t, n); } cout < < endl < < "введите номер маршрута: "; cin > > n; marsh m; for (int i = 0; i < 3; i++) { m = traffic[i]; if (m.numer == n) { m.info(); return 0; } } cout < < "нет маршрута с таким номером! " < < endl; return 1; }