<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var Число := ReadInteger('Введите натуральное число:');
var (Четных, Нечетных) := (0, 0);
while Число > 0 do
begin
if (Число mod 10).IsOdd then Inc(Нечетных)
else Inc(Четных);
Число := Число div 10
end;
Println('Нечетных', Нечетных, 'четных', Четных)
end.
<h2>Введите натуральное число: 1406439</h2><h2>Нечетных 3 четных 4 </h2>
Есть куча редакторов, никакого значения не имеет в каком писать.Некоторые из них подсвечивают код, то есть ключевые слова будут выделяться и тому подобное, это удобно для разработки.Если тебе нужно написать парачку страниц самой (то есть полностью ручками набрать код), то отличным решением для тебя будет Notepad++Это простой редактор текста с подсветкой разметки на разных языках, кроме того обладает простенькими подсказками набираемого кода.
Так же есть аналог: Sublime Text 3Если же проект более менее сложный должен быть, ты не хочешь парится как его реализовать и код не обязательно писать полностью руками, то есть отличное решение как Adobe Muse.В данной программе можно сделать формы и сгенерировать код, то есть код ты писать не будешь, ты только отредактируешь веб-страницу в простом редакторе, а код сгенерируется за тебя сам.Данная программа обладает демо-версией.Так же по ней легко найдешь очень много гайдов на YouTube, на русском язеке включительно.
Program massive;
varI : integer;number : array [1..3] of integer;
beginnumber[1] := 100;number[2] := 103;number[3] := 106;for I := 1 to 3 dobeginwriteln(number[I]);end;
end.
123456789101112131415161718192021222324252627var c: array[1..10000] of integer; a, b, n, i, max, max1, max2, p, k, v, m: integer; begin randomize; max := -10000; Readln(a, b, n); for i := 1 to n do begin c[i] := random(b - a + 1) + a; Write(c[i], ' '); end; if ((n mod 2) = 0) then k := n div 2 else k := n div 2; for p := 1 to k do begin m := c[p] + c[n - p + 1]; if ((m mod 2) = 0) and (m >= max) then begin max := m; max1 := p; max2 := n - p + 1; inc(v); end; end; Writeln(' '); if (v = 0) then Writeln(0, ' ', 0) else Writeln(max1, ' ', max2);end.<span>
</span>