В алгоритме записанном ниже используются действительные переменные a,b и c. Определите значение переменной c после исполнения данног алгоритма: a:=5; а:=а+4; b:= -a+7; c: -b/2*a

174

470

Посмотреть ответы 1

Ответы на вопрос:

ukraina3

Информатика

4,4(90 оценок)

Программа вот: program z1; var a,b,c,d,k: integer; beginwriteln('введите трехзначное число'); readln(a); while a< > 0 do beginwriteln('введите трехзначное число'); readln(a); b: =a div 100 mod 10; c: =a div 10 mod 10; d: =a mod 10; if b+c+d div 10 > 0 then writeln('сумма цифр- двузначное число') else writeln ('нет, сумма цифр не двузначное число'); if b*c*d div 100 > 0 then writeln('произведение цифр- терхзначное число') else writeln ('нет, произведение цифр не трехзначное число число'); writeln ('введите любое число'); readln (k); if b*c*d> k then writeln('произведение цифр больше числа') else writeln('произведение меньше числа'); if b+c+d div 5 =0 then writeln('сумма цифр числа кратна 5') else writeln ('сумма цифр не кратна 5'); if b+c+d div k =0 then writeln('сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('сумма цифр не кратна числу, введенному с клавиатуры'); end; end. есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами