Program fdg;
uses crt;
var a:char b:integer;
Begin
clrscr;
writeln('Введите марку топлива латиницей');
readln(a);
writeln('Введите сколько литров вам нужно бензина этой марки ');
readln(b);
If a=ae
Const
n = 7;
var a: array [1..n] of integer; i, m0, m1: integer;
begin
m0:=0; m1:=0;
writeln('Массив -->');
for i:= 1 to n do readln(a[i]);
for i:= 1 to n do begin
m0:=m0+a[i];
if a[i] mod 2 = 0 then m1:= m1+a[i];
end;
writeln('Cумма четных элементов массива: ',m1);
writeln('Cреднее арифметическое всех элементов массива: ',m0/n);
end.
===== PascalABC.NET =====
begin
var s:= ReadlnString;
s.Substring(0,s.Length div 2).Println
end.
Т.к. нужно чтобы все цифры числа были либо четными либо нечетными
то будет больше тех чисел, у котрорых подходит больше цифр.
четные цифры до 10: 2,4,6,8;
нечетные цифры до 10: 1,3,5,7,9;
=>больше будет 5 значных нечетных чисел.
(2500 5 значных четных чисел и 3125 5 значных нечетных чисел)
Да
например человек муж род
лиса жен. род
окно ср. род
белый белая белое