Только для чтения. Вы не может... 1) Работа с текстом ( )

В марте нередко возвращаются морозы И хотя днем по всем дорожкам вовсю бегут говорливые ручейки, солнце еще часто прячеца за облака, и тогда зима снова вступает в свои права Ну и как же не назвать это чудом Пробив хрупкий дедок, стремительно тянется к солнечному свету маленький отважный цветок и откуда только он сны бирет?

Нагоенный талой водой, он словно и в самом деле из снега радился Стебелек упорно тянется к солнышку, поставляет ему свои нежные еще не

распустившиеся лепестки Но вот цветок раскрылся - белоснежный, хрупкий и такой смелый Мне всегда хочется согреть его своим дыханием, укрыть от ветра, уберечь от непогоды

Но это маленькое чудо на весенних проталинках живет всего лишь несколько дней Пригреет солнышко сильнее, придет настоящее тепло, и подснежники

изчезнут так же неожиданно, как и появились до будущей
правильный вариант (36) 6. Найдите в тексте 3 глагола, выпишите их, определите спряжение (36)

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

govnonavynos

24.03.2022 10:58

Составьте на программе авс дано вещественное число а и целое число n( 0). используя один цикл,найти значение выражения 1-а+а(в квадрате)-а(в кубе)+)n * аn за ренее : *...

nikodima2005

24.03.2022 10:58

Через программу проверить истинность высказывния среди трех данных целых чисел есть хотя бы одна пара...

yannashipunova

24.03.2022 10:58

Впаскале: ввести с клавиатуры 10 чисел - положительных и отрицательных. заменить все отрицательные числа их модулями и напечатать все полученные 10 чисел....

VASILIEVAALEXANDRA

21.06.2021 09:34

Установите соответствия ситуации и видов угрозы в сети...

niknem111

04.02.2020 21:12

Компьтердин агзасына жагымсыз асерин калай томендетуге болады...

posadskivladislav

31.07.2020 18:38

1. Зачем нужна установка программ? 2. Можно ли обойтись без инсталляции? 3. Есть ли разница между установкой программ на ПК и смартфон? 4. Будет ли разница при установке программы...

sametovarnur

13.04.2021 11:33

Визначте, який радіус має коло, намальоване оператором: Image1.Canvas.Ellipse (10, 10, 110, 110);...

viktorius1

26.07.2020 00:04

Какие файлы не имеет смысла архивировать?...

ПоЛИнА10571

08.05.2020 08:06

Составить программу Истинно или условия х3+у3 =9...

Mишутка9887

24.04.2022 05:51

Мағанда осы тапсырма берді туу жауап жок...

Ответ:

ni4ego

19.10.2021 13:40

1.
var
s: string;
i, count: integer;
begin
writeln('Vvedite stroky: ');
readln(s);
for i := 1 to length(s) - 2 do
if copy(s, i, 3) = 'abc' then
count := count + 1;
writeln('Kol-vo: ', count);
end.
2.
var
s1, s2: string;
i, len1, len2: integer;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
len1 := length(s1);
len2 := length(s2);
if len1 > len2 then writeln('1 stroka dlinnee')
else if len1 < len2 then writeln('2 stroka dlinnee')
else writeln('dlini strok ravnie')
end.
3.
var
s1, s2, s3: string;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
s3 := s1[1] + s1[2] + s2[1] + s2[2];
writeln('Novaja stroka: ', s3);
end.

0,0(0 оценок)

Ответ:

samprosto02

20.01.2023 09:39

// PascalABC.NET 3.0, сборка 1111
const
alpha=['a'..'z'];
digits=['0'..'9'];
var
na,nd,i:integer;
s:string;
begin
na:=0; nd:=0;
Write('Введите текст: '); Readln(s);
for i:=1 to Length(s) do
    if s[i] in alpha then Inc(na)
    else
      if s[i] in digits then Inc(nd);
if na>nd then Writeln('В тексте больше букв')
else
    if na<nd then Writeln('В тексте больше цифр')
    else Writeln('В тексте букв и цифр поровну')
end.

Тестовое решение:
Введите текст: the equation 3.546x^2+4.18x-4.1=0
В тексте больше букв

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку