uses crt;
var s: string;
begin
writeln('Напишите слово');
readln(s);
if (length(s) mod 2 = 0) then
begin
writeln('четное кол-во');
end
else writeln('не четное');

end.

0 0

4 года назад

В системе счисления с некоторым основанием N число 37 записывается в виде 52N. Найдите это основание.

Анна Александовна

............................................

0 0

3 года назад

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

DarkRed [2.2K]

Sub z()
Dim a(8) As String
For i = 1 To 8
a(i) = InputBox("Введи слово")
Next i
For i = 1 To 8
Cells(i + 1, 1) = a(i)
n = Len(a(i))
Cells(i + 1, 2) = n
Cells(i + 1, 3) = Mid(a(i), 1, 1)
Cells(i + 1, 4) = Mid(a(i), n, 1)
Next i
<span>End Sub

Первую строку не использовал, оставил для заголовков</span>

0 0

3 года назад

Как называются соблюдение правил во взаимоотношениях между людьми ? А) справедливостью в) вежливостью с)добротой

ленаоти

Ответ:

в) Вежливость

Объяснение:

Во всех отношениях с людьми нужна вежливость)

0 0

4 года назад

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