Определите значение переменной c после выполнения следующего фрагмента программы: a := 30; b := 18; - id1331375020210320 от zilola3 20.03.2021 10:13

Question

Информатика: Определите значение переменной c после выполнения следующего фрагмента программы: a := 30; b := 18; a := 3 * b - a; if a b then c := 2 * a - b else c := 2 * a + b;​

zilola3 · Accepted Answer

Ну, я думаю с файлами ты сама справишься. Пишу сами действия:

var n,s,p,a: integer; {n - число}

Begin

Считываешь инфу

s:=s+(n mod 10); // к сумме прибавляем последнюю цифру

p:=p*(n mod 10); // на произведение умножаем последнюю цифру

a:=n div 10; // берем из 3х знач числа 2х значное. Например было 123 стало 12

s:=s+(a mod 10); // берем последнюю цифру 2х значного числа(2) к сумме

p:=p*(a mod 10); // берем последнюю цифру 2х значного числа(2) к произведению

a:=n div 10; // Берем 1-значное число из 2х значного(1)

s:=s+a; // Прибавляем сотый разряд к сумме

p:=p*a; // к произведению

записываешь инфу

end.

p - роизведение

s - сумма

Определите значение переменной c после выполнения следующего фрагмента программы: a := 30; b := 18; a := 3 * b - a; if a > b then c := 2 * a - b else c := 2 * a + b;

MOGZ ответил

Определите значение переменной c после выполнения следующего фрагмента программы: a := 30; b := 18; a := 3 * b - a; if a > b then c := 2 * a - b else c := 2 * a + b;​

MOGZ ответил

Определите значение переменной c после выполнения следующего фрагмента программы: a := 30; b := 18; a := 3 * b - a; if a > b then c := 2 * a - b else c := 2 * a + b;