Имеется и код, немного отличающийся от нужного по . необходимо отредактировать код. : в поле ввода edtvvod вводится строка. необходимо дописать процедуру обработки нажатия кнопки btnrun, которая выведет в надпись lblvyvod среднеарифметическое встретившихся четных цифр, стоящих на нечетных позициях во введённой строке, если таковых нет, то результат 0. (вы должны написать только текст, который должен быть вставлен вместо многоточия) procedure tform1.btnrunclick(sender: tobject); var s: string; sum, x, i, k, c: integer; sa: real; begin s: =edtvvod.text; lblvyvod.caption: =floattostr(sa); end; код: sum: =0; c: =0; sa: =10; for i: =1 to length(s) do begin val(s[i], x, k); if (k=0) and (x mod 10< > 0) and (x> sum) then sum: =x; if (k=0) and (x mod 10< > 0) and (x c: =c+1; end; if c< > 0 then sa: =sum/sa else sa: =0;

Procedure TForm1.btnRunClick(Sender: TObject);
var
    s: string;
    sum, x, i, count: integer;

begin
    s := edtVvod.Text;
    lblVyvod.Caption := FloatToStr(0);
    
    sum := 0;
    count := 0;
    
    for i := 1 to length(s) do
    begin
        if i mod 2 = 0 then Continue;
        x := StrToInt(s[i]);
        if x mod 2 = 1 then Continue;
        sum := sum + x;
        count := count + 1;
    end;
    
    if count > 0 then
        lblVyvod.Caption := FloatToStr(sum / count);
end;

убрала кое что ненужное
отформатировала
увы проверить негде, так что на ваш страх и риск.
Логика правильная

# -*- coding: utf-8 -*-"""Created on Tue Oct 18 16:38:28 2016 @author: imdunkind""" print("Потерянная карточка")n=int(input("Введите кол-во карточек: "))summaCards=0 # сложим все карточкиsumma_range_i=0 # сумма всех чисел for i in range(1,n+1):    summa_range_i+=i # cумма всех N карточек, карточки не повторяются от 1 до N   for i in range(1,n):    a=int(input("Введите номиналы карточек: "))    summaCards+=a # сумма всех карточек, кроме одной, карточки не повторяются 1 не хватает   # summa_range_i-summaCards - разность сумм, узнаем какой карточки нет   print("Потерянная карточка - {}".format(summa_range_i-summaCards))

Язык не указан, Default-Language это C. На нём и напишу.
1.
#include <stdio.h>
int main() {
    int n;
    scanf("%d", &n);
    if (n % 10 == 4 || n % 10 == 7 || n / 10 == 4 || n / 10 == 7)
        printf("YES\n");
    else
        printf("NO\n");
    return 0;
}
Для порядку скажу что на Perl это можно реализовать проще.
#!perl
%h { 4 => 0, 7 => 0};
<>;
if (exists $h{$_%10} || exists $h{$_/10}) {
    print "YES\n";
else {
    print "NO\n";
}
Но мы ушли от темы. Итак, 2. Тут всё ещё проще:
#include <stdio.h>
int main() {
    int n;
    scanf("%d", &n);
    if (!(n % 3))
        printf("Multiple of 3\n");
    else
        printf("Not multiple of 3\n");
    if (n % 10 == 3)
        printf("Ends by 3\n");
    else
        printf("Not ends by 3\n");
    return 0;
}
Тут более простой реализации на другом известном мне языке нету, так что приводить дополнительно ничего не буду.