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

Определить является ли первая цифра двузначного числа четным

👇
Ответ:
Jdudn
Jdudn
26.11.2020

var a:integer;

begin

readln(a);

if (a div 10) mod 2=0 then

writeln('Yes')

else

writeln('No');

end.

4,5(44 оценок)
Ответ:
skrydyya
skrydyya
26.11.2020

a - двухзначное число, b - первая цифра двухзначного числа

b: = a div 10;

if (b mod 2 = 0) then writeln ('Цифра чётная');

if (b mod 2 = 1) then writeln ('Цифра нечётная');

4,6(60 оценок)
Открыть все ответы
Ответ:
ryzhov67
ryzhov67
26.11.2020

1 )В кодовых таблицах КОИ-8 и Windows сначала расположены прописные русские буквы, а затем строчные. Русские прописные буквы в кодовых таблицах КОИ-8 и Windows имеют номера со 192 по 223. Русские буквы в кодовых таблицах КОИ-8 и Windows имеют номера со 192 по 225.

2)

film

face

fine

fire

3)3

4) i = 1 байт

k = «Речь вести - не лапти плести.»

Найти:

V - ?

Решение

i = 1 байт = 8 бит

В предложении «Речь вести - не лапти плести.»- 29 символов

V = k * i (формула нахождение объёма текстовой информации)

Где, к – количество символов в тексте

V = 29 * 8 = 232 бит = 29 байт

ответ: текст содержит 29 байт информации

5 )Слово занимает 14 байт =14*8=112 бит памяти. Решение: Переведем Кб в байты: 0, 25 Кб * 1024 =256 байт. Так как текст занимает объем 256 байт, а каждый символ – 1 байт, то в тексте 256 символов.

6)31 управляющие

7)4

8)576 битов тоесть :576/8=72 бита

4,7(75 оценок)
Ответ:
donaldavis1337
donaldavis1337
26.11.2020
Рекурсивный подход.(Символы тоже удаляет)
function grad(s:string):string;
var
i:byte;
detect:boolean;
begin
while i < length(s) - 2 do
begin
inc(i);
if (s[i] = s[i+1]) and (s[i] = s[i+2]) then {проверка последовательности из 3 елементов}
begin
delete(s,i,3); {если да - удаляем их}
detect:=True; {логическая переменная регистрирует изменение строки}
end;end;
if detect = True then
s:=grad(s); {если строку изменили , проверяем не появились ли там еще последовальности}
grad:=s; 
end;

var
s:string;
begin
readln(s);
writeln(grad(s));
end.
4,5(7 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ