М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
titan9064
titan9064
26.01.2022 14:46 •  Информатика

Как вывести в Pascal слово, идущее после запятой?

👇
Ответ:
Kiryshka2532
Kiryshka2532
26.01.2022

var

slovo,slovo2:string;

simvol:Char;

a,ampirmetr:integer;

begin

readln (slovo);

a:=Pos(',',slovo);

ampirmetr:=length(slovo);

if a = 0 then writeln ('No data')

else begin

a:=a+1;

ampirmetr:=ampirmetr-a+1;

slovo2:=copy(slovo,a,ampirmetr);

writeln(slovo2);

end;

readln;

end.

Объяснение:

Имеется проверка на запятую.

В начале вводите текст с запятой, затем выполняется вывод текста после запятой (1 раз)

4,7(11 оценок)
Открыть все ответы
Ответ:
meeeoooowww
meeeoooowww
26.01.2022
Sub maxZn()'заполнение массива  Dim mas(20)  S = ""  Randomize  For i = 1 To 20    mas(i) = Round(Rnd(100) * 100)    S = S + Str(mas(i)) + ","  Next i'поиск максимального числа и количества его повторений   qty = 1   max = mas(1) 'предполагаем, что максимальное число в первом элементе массива    For i = 2 To 20    If mas(i) = max Then      qty = qty + 1    End If    If mas(i) > max Then      max = mas(i)      qty = 1    End If  Next i     MsgBox "последовательность чисел " + S  MsgBox "максимальное число " + Str(max) + "число повторений " + Str(qty)  End Sub
Sub test()  Call maxZnEnd Sub
Дана последовательность чисел. выяснить, сколько раз в ней встречается наибольшее число.(basic)
4,8(94 оценок)
Ответ:
sophiexmartinez
sophiexmartinez
26.01.2022
А) не ( A или не В и С ) упрощаем выражение и получаем
not(a) and (b or not(c))

Код на Python:

for a in range(0,2):
    for b in range(0,2):
        for c in range(0,2):
            f=not(a) and (b or not(c))
            print('A = ',a,'B = ',b,'C = ',c,'F = ',f)

б) А и не ( В и или не С) получим такое выражение:
a and (b or not(c))

Код на Python:

for a in range(0,2):
    for b in range(0,2):
        for c in range(0,2):
            f=a and (b or not(c))
            print('A = ',a,'B = ',b,'C = ',c,'F = ',f)


в) не ( не А или В и С)  преобразуем:
a and (b or c)

Код на Python:

for a in range(0,2):
    for b in range(0,2):
        for c in range(0,2):
            f=a and (b or c)
            print('A = ',a,'B = ',b,'C = ',c,'F = ',f)
4,7(44 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ