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

Решите задачу по информатике

👇
Открыть все ответы
Ответ:
bogahewa78
bogahewa78
13.06.2020
Var
    s : String;
    i : Integer;
begin
    Writeln('Введите строку:');
    Readln(s);

    i:= 0;

    while pos(')', s) <> 0 do
    begin
        i := i + pos(')', s) - pos('(', s) + 1;
       delete(s, pos('(', s), pos(')', s) - pos('(', s) + 1);
    end;

    Writeln(s);
    Writeln(i);
    Readln;
end.

2)

var 
    s    : String; 
    i, e : Integer; 
    flag : Boolean;  
begin
    Writeln('Введите строку:');
    Readln(s);

    e := 0;
    flag := False;

    for i := 1 to Length(s) do
    begin
        if (s[i] = UpCase(s[i])) and ((s[i - 1] = ' ') or ( i = 1 )) then  flag := True;

        if flag then Write(s[i]);

        if (( s[i] = ' ' ) or ( i = Length(s))) and flag then
        begin
            flag := False;
            inc(e);
            Writeln;
        end;
    end;

    Writeln(e);
    Readln;
end.
4,5(34 оценок)
Ответ:
А на каком языке то хоть?

вот программа на С++:

#include <iostream>
using namespace std;
int main()
{
setlocale(0, "Russian");
int a, b, c;
cout << "Введите 3 целых числа: " << endl;
cin >> a >> b >> c;   
if(a>b && a>c)

cout << "Максимальное число = " << a << endl;
}     
if(b>a && b>c)
{       
cout << "Максимальное число = " << b << endl;
}
 if(c>b && c>a)
{       
cout << "Максимальное число = " << c << endl;
}
cin >> a;   
return 0;
}
4,6(53 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ