Нужна 1. с клавиатуры вводят слово и символ. составть программу, которая: а) проверяет, есть ли в этом слове заданный символ; б) определяет позицию заданного символа; в) подсчитывает количество вхождений заданного символа. 2.с клавиатуры вводят строку и слово. составть программу, которая: а) определяет позицию заданного слова; б) удаляет заданное слово; в) вставляет в строку заданное слово. 3. составть программу, которая: а) из строки "волга, днепр, неман, енисей" удаляет названия рек, не протекающих по территории беларуси; б) из строки "брест, бобруйск, витебск, гомель, мозырь, могилев" удаляет названия городов, не являющихся областными центрами. 4. составтьпрограмму, которая: а) в строке "край озер" добавляет слова "лесов и рек"; б) в строке "я учусь в школе" заменить слова "в школе" на "в 10-ом классе". 5. составть программу, которая переставляет на первое место: а) в строке "моя родинабеларусь" слово "беларусь"; б) в строке "люблю цябе мой родны кут" слова "мой родны кут".
Ответы
Var a, b, c: longint; function nod(a, b: longint): longint; begin a : = abs(a); b : = abs(b); if a * b = 0 then nod : = 1 else begin while a < > b do if a > b then a : = a - b else b : = b - a; nod : = a; end; end; begin read(a, b, c); writeln(nod(nod(a, b), c)); end.
Program soprotivlenie; rs это общее var r1,r2,r3,rs: integer; begin rs: =0; writeln('ввести сопротивления в '); readln(r1,r2,r3); rs: =r1+r2+r3; writeln('общее сопротивление равно ',rs) end. как то так. для проверки вычисли на бумаге а потом в программе.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Что такое фишинг? интернет магазин,
Автор: Yevgenevich775
Как записать число римскими цифрами 289
Автор: samira57
Паскаль . написати програму. x=y+3a/y-4, y-4< > 0
Автор: charlie79
Нужно написать программный код в С++ по данной блок схеме:
Автор: boldireve617
Переведи число 10458 в десятичную систему счисления.
Автор: ambstroy
программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.
№5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.