<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3><h2>№1</h2>
begin
var s := ReadlnString;
var a := ReadlnChar;
if s[1] = a then Print('Да')
else Print('Нет')
end.
<h2>№2</h2>
begin
var s := ReadlnString;
var a := ReadlnChar;
s.Where(c->c=a).Count.Println
end.
inputFileName = 'input.txt' # имя входящего файла
outputFileName = 'output.txt' # имя файла вывода
f = open(inputFileName, 'r')
A = int(f.readline())
B = int(f.readline())
f.close()
if A > B:
symbol = ">"
if A < B:
symbol = "<"
else:
symbol = "="
f = open(outputFileName, 'w')
f.write(symbol)
f.close()
Возьми напиши компьютер по середине потом
клавиатура
о.
монитор
п
ь
ю
т
е
р
дальше возит открой книгу по информ и найди слова
100Мбит это 0,0125Гбайт.
В одно часе 3600 секунд.
Умножаем кол-во секунд на кол-во Гбайт.
0,0125*3600=45
Ответ: 45