var
n, k, s, sa: integer;
begin
k := 0;
s := 0;
sa := 0;
writeln('Введите последовательность, окончание ввода - число 0');
repeat
read(n);
if (n mod 4 = 0) and (n mod 10 = 2) then s := s + n;
if (n <> 0) and (n < 100) then inc(k);
sa := sa + n
until n = 0;
readln;
writeln('Сумма чисел, кратных 4 и заканчивающихся на 2, равна ', s);
writeln('Количество чисел, не больших 100, равно ', k);
writeln('Сумма последовательности равна ', sa);
readln
end.
Объяснение:
nameA, heightA = map(str, input("Введите имя и рост(только число) первого(ой) ученика(цы) через пробел: ").split())
nameB, heightB = map(str, input("Введите имя и рост(только число) второго(ой) ученика(цы) через пробел: ").split())
if heightA > heightB:
print("Ученик(ца) {0} выше на {1} ед.".format(nameA, int(heightA)-int(heightB)))
elif heightA < heightB:
print("Ученик(ца) {0} выше на {1} ед.".format(nameB, int(heightB) - int(heightA)))
else:
print("Рост ученика {0} и {1} равны".format(nameA, nameB))
var
n, k, s, sa: integer;
begin
k := 0;
s := 0;
sa := 0;
writeln('Введите последовательность, окончание ввода - число 0');
repeat
read(n);
if (n mod 4 = 0) and (n mod 10 = 2) then s := s + n;
if (n <> 0) and (n < 100) then inc(k);
sa := sa + n
until n = 0;
readln;
writeln('Сумма чисел, кратных 4 и заканчивающихся на 2, равна ', s);
writeln('Количество чисел, не больших 100, равно ', k);
writeln('Сумма последовательности равна ', sa);
readln
end.
Объяснение:
nameA, heightA = map(str, input("Введите имя и рост(только число) первого(ой) ученика(цы) через пробел: ").split())
nameB, heightB = map(str, input("Введите имя и рост(только число) второго(ой) ученика(цы) через пробел: ").split())
if heightA > heightB:
print("Ученик(ца) {0} выше на {1} ед.".format(nameA, int(heightA)-int(heightB)))
elif heightA < heightB:
print("Ученик(ца) {0} выше на {1} ед.".format(nameB, int(heightB) - int(heightA)))
else:
print("Рост ученика {0} и {1} равны".format(nameA, nameB))