3 года назад

РЕБЯТА ПОМОГИТЕ!!! ЗАДАЧА ввести строку и определить количество заглавных букв

1 ответ:

0 0

Думаю, немного нестандартный способ, но зато работает))

var s1,s2:string; i,n:integer;begin readln(s1); s2:=LowerCase(s1); writeln(s2); for i:=1 to length(s1) do if s1[i]<>s2[i] then inc(n); writeln(n);end.

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

Что принято за минимальную единицу измерения информации?

Данилко Валентина... [544]

Минимальная единица измерения информации- бит

0 0

4 года назад

Подскажите где можно делать коллажи?

habara1989

В программе для создания коллажей.

0 0

3 года назад

Какова мощность алфавита, с помощью которого записано сообщение, содержащее 2048 символов, если его объём составляет 1,25 Кбайт?

вилетта [14]

1.25 кб=1280 байт

байт=8 бит

1,25 кБ=10240 бит

В 10240 бит вместилось 2048 символов, потому что 10240 бит/2048 символов=5 бит/символ. 2^5=32

в итоге ответ: мощность алфавита 32 бита

0 0

4 года назад

1. Заполните массив с клавиатуры А(8). Найти среднее арифметическое элементов массива.

Наталья Бабушкина

Const
   N = 8;
Var
   A:array[1..N] of integer;
   i:integer;
   S:real;
Begin
Write('Введите массив A(',N,'): ');
For i:= 1 to N do
    Begin
    Read(A[i]);
    S:=S+A[i];
    End;
WriteLn('Sr = ',S/N);
End.

Пример работы программы:

Введите массив A(8): 1 2 3 4 5 6 7 8
Sr = 4.5

0 0

4 года назад

Найти общее сопротивление соединения,если 3 проводника соединены параллельно,и их сопротивления вводит пользователь. (Var R1, R

pavel30112 [6]

$\displaystyle g=\frac{1}{R}= \frac{1}{r_1} + \frac{1}{r_2} + \frac{1}{r_3} ; \ R=\frac{1}{g}$

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var r1,r2,r3:real;
Write('Введите R1 R2 R3: '); Read(r1,r2,r3);
var g:=1/r1+1/r2+1/r3;
Writeln('R=',1/g:0:5)
end.

<u><em>Тестовое решение:</em></u>
Введите R1 R2 R3: 3.5 2.75 4
R=1.11191

0 0

4 года назад