Var
n, sum, i, a: integer;
begin
read(n);
sum = 0;
for i := 1 to n do
begin
read(a);
if (a mod 5 = 0) then
sum := sum + a;
end;
write(sum);
end.
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
var x:=ReadlnString('Введите слово Х:');
var y:=ReadlnString('Введите слово Y:');
var Good:=True;
for var i:=1 to y.Length do begin
var p:=Pos(y[i],x);
if p>0 then Delete(x,p,1)
else begin Good:=False; Break end
end;
if Good then
Writeln('Можно составить ',y)
else
Writeln('Нельзя составить ',y)
end.
Тестовое решение:
Введите слово Х: образование
Введите слово Y: название
Нельзя составить название
Введите слово Х: образование
Введите слово Y: барон
Можно составить барон
<h2>Задание </h2>
Сложить E43C и D15A в шестнадцатеричной системе счисления
<h2>Решение</h2>
Записываем два числа в столбик и складываем по разрядам. Первым действием складываем C и A. Вспомним, какие числа содержит в себе шестнадцатеричная система счисления: от 0 до 9, а также буквы A, B, C, D, E и F, соответственно равные 10, 11, 12, 13, 14 и 15. Итак, складываем C и A: 12 + 10 = 22. Так как мы работаем в шестнадцатеричной системе счисления, то происходит переполнение разряда (аналогия - в нашей, десятичной системе счисления такое переполнение происходит, когда мы складываем, например, 5 и 6: 5 + 6 = 11 - происходит переполнение нашей системы и мы включаем десятки). Нужно разложить 22 на сумму числа и 16. 16 + 6 = 22. Записываем под этими разрядами 6 и ставим точечку над следующим разрядом. Переходим к следующему: 3 + 5 = 8. Переполнения нет. А у нас ещё точечка: 8 + 1 = 9. Записываем под этими разрядами 9. Переходим к следующему: 4 + 1 = 5. Записываем. Следующий (последний): E + D = 14 + 13 = 27 = 16 + 11. 11 в шестнадцатеричной системе счисления - это B. Единичку записываем в следующий разряд (а поскольку его нет - в самое начало получившегося числа).
<h2>Ответ</h2>
1B596
0,75*1024=768 байт. (т.к. 1 символ=1 байт) Ответ:768