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

Паскаль! дана строка символов, состоящая из слов. заменить в словах слог "ба" на "ро" (например, "база" - "роза"). если таких слов нет, то выдать соответствующее текстовое сообщение.

👇
Ответ:
missgur04
missgur04
04.04.2023
Var s:string; p:integer;
begin
writeln('Введите строку:');
readln(s);
p:=pos('ба',s);
if p>0
 then 
  begin
  while p>0 do begin delete(s,p,2); insert('ро',s,p); p:=pos('ба',s); end;
  writeln(s);
  end
 else writeln('В строке нет слогов "ба"');
end.

Пример:
Введите строку:
база
роза
4,7(62 оценок)
Открыть все ответы
Ответ:
VladeEZ
VladeEZ
04.04.2023
 program z1;
 var n,m:integer;
 rost,nine_a,nine_b:real;
 begin
write('Введите количество учинеков 9а класса: ');
readln(n);
write('Введите количество учинеков 9б класса: ');
readln(m);
writeln('Вводите рост каждого из учинеков 9а по очереди');
for i:integer :=1 to n do begin
write(i,': ');
read(rost);
nine_a:=nine_a+rost;
end;
nine_a:=nine_a/n; // средний рост 9а
writeln('Вводите рост каждого из учинеков 9б по очереди');
for i:integer :=1 to m do begin
write(i,': ');
 read(rost);
nine_b:=nine_b+rost;end;
nine_b:=nine_b/n; // средний рост 9б
if nine_a > nine_b then write('Средний рост учеников 9а больше.') else if nine_a < nine_b then write('Средний рост учеников 9б больше.') else write('Средний рост учеников 9а равен среднему росту учеников 9б.');
end.

как-то так, будут вопросы пиши)
Всего-то 30 мин
4,8(67 оценок)
Ответ:
cocosobanro
cocosobanro
04.04.2023

#include <stdio.h>

void viewbooks()

{

FILE *f;

char c, word[50]={0};

int k=0,i,n;

if((f=fopen("books.txt","r"))==NULL)

 printf("error");

c=fgetc(f);

n=0;

for(;;)

{

 c=fgetc(f);

 if(c==EOF)

 {

   if(n==0)

   {

     printf("File is empty");

     break;

   }

   printf("date: ");

   for(i=0;i<k;i++)

     printf("%c",word[i]);

   break;

 }

 word[k]=c;

 k++;

 if(c=='"' || c==' ')

 {

   n++;

   if(n==1)

     printf("book 1:\n");  

   if(c=='"' && n%3!=0)

     printf("name: ");

   else if(n%3!=0)

     printf("author: ");

   if(n%3==0)  

     printf("date: ");

   for(i=0;i<k-1;i++)

     printf("%c",word[i]);

   for(i=0;i<k;i++)

     word[i]=0;

   c=fgetc(f);

   if(c==EOF)

     break;

   if(c==' ')

     k=0;

   else

   {

     word[0]=c;

     k=1;

   }

   printf("\n");

   if(n%3==0)

     printf("book %d:\n",n/3+1);

 }

}

fclose(f);

}

int main()

{

viewbooks();

return 0;

}

Пример входных данных(в файле books.txt):

"AAA" X.Y.Xyzf 1234

"Bb" A.V.Ytrewq 7777

"" P.M.Qwerty 1011

"" I.U.Qwerty 1113

Выходные данные:

book 1:

name: AAA

author: X.Y.Xyzf

date: 1234

book 2:

name: Bb

author: A.V.Ytrewq

date: 7777

book 3:

name:

author: P.M.Qwerty

date: 1011

book 4:

name:

author: I.U.Qwerty

date: 1113

Примечания:

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

4,5(76 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ