Регистрация
Veronicagitarowe
11.01.2020 23:17
Информатика
Есть ответ 👍

1)определите значение переменной c после выполнения следующего фрагмента программы, в котором a, b и с – переменные вещественного (действительного) типа: a : = 120; b : = 100; a : = a + b / 2; if b < a / 2 then c : = b + a else c : = b + a / 2; ответ укажите целым числом. 2)определите значение переменной c после выполнения следующего фрагмента программы: a : = -2; b : = -3; a : = b + a*3; if a < b then c : = a - b else c : = b – a; 3)определите значение переменной c после выполнения следующего фрагмента программы: a : = 40; b : = 10; b : = a - 2*b; if a < 2*b then c : = a else c : = b; 4)определите значение переменной c после выполнения следующего фрагмента программы: a : = 6; b : = 15; a : = b – a*2; if a > b then c : = a + b else c : = b – a; 5)определите значение переменной c после выполнения следующего фрагмента программы: a : = 100; b : = 30; a : = a – b*3; if a > b then c : = a – b else c : = b – a;

117
317
Посмотреть ответы 2

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

полли42
полли42
4,7(48 оценок)

1)

a = 120;

b = 100;

a = 120 + 100 / 2 = 170;

b> a, c = b + a / 2, c = 100 + 170 / 2= 185 - ответ.

2)

a = -2;

b = -3;

a = -3 + (-2) * 3 = -9;

a < b, c = a - b , с = -9 + 3 = -6 - ответ.

3)

a = 40;

b = 10;

b = 40 - 2 * 10 = 20;

a = 2 * b (2 * 20 = 40), c = b, c= 20 - ответ.

4)

a = 6;

b = 15;

a = 15 - 6 * 2 = 3;

a< b, c = b - a, c = 15 - 3= 12 - ответ.

5)

a = 100;

b = 30;

a = 100 - 30 * 3 = 10;

a < b, c = b – a, c = 30 - 10 = 20 - ответ.

katevina
katevina
4,7(5 оценок)
========== 1 вариант через строку ========== var    n,a,k,sum,i,j: integer;     s: string;   begin   sum: =0;     write ('введите количество чисел: ');   readln (n);   for i: =1 to n do begin      write ('введите число: ');     readln (a);     str(a,s);     k: =0;     for j: =1 to length(s) do        if s[j]='5' then k: =k+1;     if k=2 then sum: =sum+a;   end;     writeln ('sum = ',sum); end. ========== 2 вариант через div и mod ========== var    n,a,x,k,sum,i: integer;   begin   sum: =0;     write ('введите количество чисел: ');   readln (n);   for i: =1 to n do begin      write ('введите число: ');     readln (a);     x: =abs(a);     k: =0;     while x> 0 do begin       if x mod 10 =5 then k: =k+1;       x: =x div 10;     end;     if k=2 then sum: =sum+a;   end;     writeln ('sum = ',sum); end. ========== пример результата: ========== введите количество чисел: 3 введите число: 550001 введите число: -550000 введите число: 123456 sum = 1

Популярно: Информатика