<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.
Это же так просто! Удачи, ответ во вложении. Только там в конце опечатка у меня...
Var p,h,e,s,t,x: integer;
begin write('Введите стоимость проезда в 1 сторону: ');
readln(p);
write('Введите стоимость проживания в двухместном номере в сутки: ');
readln(h);
write('Введите стоимость питания в сутки: ');
readln(e);
write('Введите стоимость страховки: ');
readln(s);
write('Введите стоимость трансфера: ');
readln(t);
x:=p*2+h*7+e*7+s+t;
writeln('Стоимость тура = ',x, '$', ' - ', x*34.75, 'руб');
<span>end.</span>
Задание 1.
Ответ под цифрой 4
Задание 2.
Ответ под цифрой 4.
Задание 3.
Найдем количество символов в статье:
<span>64·40·64 = 26·5·23·26 = 5 · 215. </span>
Один символ кодируется одним байтом, 210 байт составляют 1 килобайт, поэтому информационный объем статьи составляет
<span>5·215 байт = 5·25 килобайт = 160 Кб. </span>
Файл во вложении направляю на вам в группу для для покупок и в в