Задание 1. Переведите в десятичную систему числа - вопрос №13047666111001122 от katyakot56806 23.05.2022 08:49

Question

Информатика: Задание 1. Переведите в десятичную систему числа 1100112, Задание 2. Переведите в десятичную систему числа 1468 Задание 3. Переведите в десятичную систему числа 1D16. Задание 4. Переведите число 38 в двоичную системы счисления Задание 5. Переведите число 113 в восьмеричную системы счисления Задание 6. Переведите число 211 в шестнадцатеричную системы счисления Задание 7. Для какого из приведённых чисел истинно высказывание: НЕ(Первая цифра чётная) И (Последняя цифра нечётная)? 1) 6843 2) 4562 3)

katyakot56806 · Answer

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a,n,i,s:integer;
begin
write('Число элементов последовательности ');
readln(n);
for i:=1 to n do begin
write(i,' элемент последовательности = ');readln(a);
if (a mod 2 <>0) then s:=s+a;
end;
writeln('Сумма нечетных = ',s);
end.

Тестовое решение:
Число элементов последовательности 5
1 элемент последовательности = 3
2 элемент последовательности = 2
3 элемент последовательности = 4
4 элемент последовательности = 1
5 элемент последовательности = 5
Сумма нечетных = 9