Из правил сервиса: "Пользователи признают, что задания, которые содержат большое количество задач, требующих решения, должны быть разделены на два или несколько заданий и в таком виде добавлены в Сервис для других Пользователей. То есть в одном задании не может быть несколько задач".
//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
1. Если имеется в виду язык Pascal, то получим следующее: var: a; //PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) begin readln(a); b:=a+a; writeln (b); end.
Program50.pas(5) : Неизвестное имя 'b'
2. Попробуем такой вариант на Python
a =int(input()) b = a+a print(b)
При вводе а получим на выходе 10
Получается, что в Pacal требуется объявлять переменные в секции переменных, или в любом месте программы можно объявить переменную с служебного слова var для PascalABC.net. Первый код можно переписать так, и он будет работать:
var: a; //PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) begin readln(a); var b:=a+a; writeln (b); end.
14/2=7(0)
7/2=3(1)
3/2=1(1)
1/2=0(1)ответ 1110 в двоичной системе
14/8=1(6)
6/8=0(1) ответ 16
14/16=0(1) ответ 1
65/2=32(1)
32/2=16(0)
16/2=8(0)
8/2=4(0)
4/2=2(0)
2/2=1(0)
1/2=0(1) ответ 1000001в двоичной системе
65/8=8(1)
8/8=1(0)
1/8=0(1) ответ 101 в восьмеричной системе
65/16=4(1)
4/16=0(1)ответ "В"
Из правил сервиса: "Пользователи признают, что задания, которые содержат большое количество задач, требующих решения, должны быть разделены на два или несколько заданий и в таком виде добавлены в Сервис для других Пользователей. То есть в одном задании не может быть несколько задач".