Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Атабек111111
13.06.2020 19:20 •
Информатика
Решите задачу по информатике
👇
Увидеть ответ
Открыть все ответы
Ответ:
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 оценок)
Ответ:
dzhuliya423555555555
13.06.2020
А на каком языке то хоть?
вот программа на С++:
#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 оценок)
Это интересно:
Х
Хобби-и-рукоделие
26.07.2020
Как выращивать спирулину дома...
П
Питомцы-и-животные
06.06.2020
Как приучить собаку к выгулу: советы от профессионалов...
С
Стиль-и-уход-за-собой
28.08.2020
Как правильно расчесывать волосы: события волосистой жизни...
З
Здоровье
02.05.2020
Не мучайтесь болью: Как эффективно и безопасно растворить камни в почках...
О
Образование-и-коммуникации
28.08.2021
Как написать описательный абзац: эффективные советы и примеры...
О
Образование-и-коммуникации
08.01.2020
Как стать интересным: советы и рекомендации...
К
Компьютеры-и-электроника
09.12.2022
Как взломать Wi-Fi сеть (WEP) с помощью Airoway и Wifislax...
С
Семейная-жизнь
13.11.2020
Как стать лучшей сестрой: советы от реальных девушек...
С
Стиль-и-уход-за-собой
19.08.2022
Как сделать бальзам для губ из вазелина: домашний рецепт...
Х
Хобби-и-рукоделие
10.07.2021
Игра в Джекс: правила и стратегии...
Новые ответы от MOGZ: Информатика
natachernov
20.02.2023
Склавиатуры вводится целое число в интервале от 0 до 15. вывести на экран эквивалент этого числа в шестнадцатиричной системе счисления....
tafefuyozo
20.02.2023
Выберите правильный вариант ответа. обоснуй ответ. в каком из представленных устройств происходит обработка информации, перед её дальнейшим выводом? а) оперативная...
sofiakobzeva
20.02.2023
Переделать слово ночь в день за 4 шага,изменяя по одной букве...
20MIR01
07.04.2022
Составьте программу вычисления корней квадратного уравнения aх^2+вх+с=0 по данным значениям его коэффициентов....
rusylan883
23.05.2023
Вам известно точное название документа, например «гигиенические требования к персональным электронно-вычислительным машинам и организации работы». сформулируйте...
dianadobosh13
07.08.2021
Один из видов внешней памяти предназначенной для долговременного хранения и переноса на другой компьютер больших обьемов информации вот буквы: ? ? е ? вместо вопроса...
gruzz300
07.08.2021
Перечислите первые простейшие искусственные вычислительные приборы...
Marina56434655442
08.03.2023
Пользователь работал с каталогом информатика. сначала он спустился на один уровень вниз, затем дважды поднялся на один уровень вверх. в результате он оказался в...
kornilovstas200
19.04.2022
Набранного на компьютере равен 81 кбайт на каждой странице 36 строк в каждой строке 48 символов сколько страниц содержит реферат? сколько минут потребуется печати...
Іра022
19.04.2022
Напишите программу вычисления 5+5*5 programm: var: begin: end. программа помню. турбо что-то.кто знает как пользоватся как делать, скиньте решение...
MOGZ ответил
В 1 корзине з синих и 2 красных шара, во 11-ой - 5 синих и 4...
Задача номер 206 Дронов и Орехов находившиеся в состоянии алкогольного...
Знайдіть масу m тіла, що рухається під дією сили F = 8H, через...
Одно предложение! Сабджанктив. He felt fresh and rested ai if...
1. Прийменник вжито в реченні А Десь поблизу співали пташки....
З) Расшифровать аббревиатуру и датьхарактеристику деятельности...
Путинцев В.А. в составе геологоразведочной партии отправился...
Сколько семья голосеменные растения имеют...
Найдите все решения уравнения cos 2x + cos x = 0 принадлежащие...
Площади граней прямоугольного параллелепипеда равны 5 кв.ед,...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
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.