4 года назад

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

1 ответ:

Юрий31644 года назад

0 0

VB.

Dim i As Integer
Dim summ As Integer
Dim simv As String
simv = "бвгджзклмнпрстфхцчшщ"
Dim n As String
n=InputBox ("Введите строку")

For i = 1 To Len(n)
If InStr(simv, Mid(CStr(n), i, 1)) > 0 Then summ += 1
Next
' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
MsgBox("Всего согласных в строке " & summ & ", что является " & Len(n) & "/" & summ & "=" & Len(n) / summ & " долей")

Читайте также

Вопрос 5. Сколько клеток входит в диапазон A5:D8? А. 2 В. 5 С. 8 D. 16 E. 13

November [1.7K]

16 клеток входит в диапазон A5:D8

0 0

4 года назад

Даны три действительных числа. Вычислить квадратный корень из тех, значения которых неотрицательны на С++

nnettwwoo [50]

#include <iostream>

#include <math.h>

using namespace std;

int main() {

cout.precision(10);

double x, y, z;

cin >> x >> y >> z;

if (x>=0) cout << sqrt(x) << " ";

if (y>=0) cout << sqrt(y) << " ";

if (z>=0) cout << sqrt(z);

return 0;

}

0 0

4 года назад

Дайте развернутые ответы на вопросы: Почему отношение неравенства можно назвать логическим выражением? Приведите пример блок-схе

Quick16 [1]

Ответ:

Объяснение:

1)Неравенство может иметь истину или ложь

2) если a < b тогда min = a иначе min = b

2. если c < min тогда min = c

3) в вложении

0 0

4 года назад

Прочитать ещё 2 ответа

3. Напишите программу, которая подсчитывает, сколько чисел из последовательности делятся на 3 и при этом заканчиваются на 4. На

Magistr61

Var
a:array[1..1000]of integer;
i,n,k,c,q:integer;
   begin
    readln(n);
    for i:=1 to n do
     begin
     readln(a[i]);
      if (a[i] mod 10 = 4) then
      begin
       k:=a[i];
       c:=0;
       while k>0 do
        begin
        c:=c + k mod 10;
        k:= k div 10;
        end;
        if c mod 3 = 0 then
        q:=q+1;
        end;
       end;
      writeln(q);
      end.

0 0

4 года назад

В чём смысл гипертекста?

Mari147 [1]

Ответ:

совокупность документов содержащих текст аудио и видеоматериалы можно связать ссылками в один единственный текст, а так же будет возможность переходить по ссылкам к нужным материалам.

0 0

4 года назад