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

Дан текст без знаков препинания. между словами может быть только 1 пробел. определить какой процент слов в тексте сожержит хотя бы 1 букву "d".

👇
Ответ:

#include <iostream>
using std::cout;
using std::cin;
using std::endl;
using std::fixed;
#include <cstring>
using std::strcpy;
#include <iomanip>
using std::setprecision;

int main()
{
    char s[100], temp[100];
    int counter = 0, counter1 = 0;

    cout << "Enter the string: ";
    cin.getline(s, 100);

    strcpy(temp, s);

    //Определяем общее количество слов
    //и количество слов с буквай d
    char *ptr = strtok(temp, " ");
    while(ptr)
    {
        for(int i = 0; *(ptr + i) != NULL; i++)
        {
            if(*(ptr + i) == 'd')
            {
                counter1++;

                break;
            }
        }

        counter++;

        ptr = strtok(NULL, " ");
    }

    cout << setprecision(2) << fixed << (counter1 * 100 / double(counter)) << '%' << endl;

    return 0;
}


Дан текст без знаков препинания. между словами может быть только 1 пробел. определить какой процент
4,5(25 оценок)
Открыть все ответы
Ответ:
aimsen
aimsen
05.03.2023
2)
const 
N=8;
M=10;
var p:array[1..N,1..M] of integer;
i,j:integer;
begin 
for i:= 1 to N do   
for j:=1 to M do 
begin   p[i,j]:=i*j;  write(p[i,j],' ') 
end; 
end.

3)
const 
N=4;
M=6;
var z:array[1..N,1..M] of integer;
i,j,sum,pr:integer;
begin
randomize;sum:=0;
pr:=1; 
  for i:= 1 to N do   
   for j:=1 to M do   
begin z[i,j]:=random(100); 
 write(z[i,j],' ');   
 sum:=sum+z[i,j];   
 pr:=pr*z[i,j]; 
end; 
writeln(); 
write('сумма ',sum,' произведение ',pr); 
end.

4)
const 
N=5;
M=5;
var a:array[1..N,1..M] of integer;
i,j,sum,pr:integer;
begin
randomize;
sum:=0;
pr:=1; 
for i:= 1 to N do   
for j:=1 to M do   
begin
a[i,j]:=random(100);   
write(a[i,j],' ');   
sum:=sum+a[i,j];   
pr:=pr*a[i,j]; 
end; 
writeln(); 
write('сумма ',sum,' произведение ',pr); 
end.
4,8(83 оценок)
Ответ:

Сейчас на очень трудно представить мир без интернета. Каждый из нас, каждый день тратит время на компьютер, телефон или планшет. Как выглядил бы современный мир без интернета?

Если у нас пропал бы интернет, то дети пошли бы играть на улицу, придя после школы ты сел бы за уроки, а не в компьютер, ты стал бы лучше учится тк тебя не отвлекали сообщения от друзей и знакомых. В ближайшее время ты пошел бы в библиотеку тк тебе нужно было бы написать дополнительную информацию по домашнему заданию. У людей стало бы больше времени и они стали ухудшать свое зрении намного медленнее.

Без интернета жизнь стала бы лучше? Сомневаюсь. Тк ты много времени тратил на поиск информации, было бы не удобно общаться через большие расстояния, ты больше не смог бы позвонить своим родственникам по видео связи, которые живут далеко.

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