Написать программу для нахождения суммы цифр, составляющих число произвольной длины. написать программу, позволяющую определить, сколько заданных символов в данной фразе (искомые символы и фраза вводятся с клавиатуры. например, сколько букв а и а в слове абракадабра)

156

485

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

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

Алина678901

Информатика

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

Пункт а: насколько я помню, в паскале невозможно реализовать бесконечный цикл, поэтому решение будет слегка притянуто за уши. например если вы введете число из 9001 символа, программа будет работать неккоректно. для выхода из цикла используется 'метка'. a, counter, summa : integer; label transfer; begin writeln('введите число'); readln(a); counter : = 1; countertw0 : = countertwo + 1; while counter < 9000 do begin counter : = counter +1; if (a div counter) < 0 then transfer else countertwo : = countertwo + 1; else; goto transfer; //узнали, что в числе countertwo символов while counter < countertwo do summa : = summa + ((a div counter) mod 10); summa : = summa + (a mod 10); writeln(summa); end.

yuikire

Информатика

4,6(73 оценок)

Public class form1 private sub form1_load(byval sender as system.object, _ byval e as system.eventargs) handles mybase.load dim s(9) as string dim b as boolean textbox1.multiline = true textbox1.height = 100 for i = 1 to 9 s(i) = inputbox("введите элемент " & i) if s(i) = "0" then b = true next for i = 1 to 9 if b then s(i) = "7" next for i = 1 to 9 textbox1.text = textbox1.text & s(i) & chr(32) if i = 3 or i = 6 then _ textbox1.text = textbox1.text & vbcrlf next end sub end classработает в visual studio 2010 (не думаю, что вы в vb6 пишите)перед запуском, киньте на форму textbox