Задать вопрос
4 июня, 13:40

Найдите значение переменной "а"

а:=12; b:=8;

a:=2*b-a; if a>b

then c:=a*b-a else

c:=b*a-b

s=25; if s mod

2 0 then begin

s:=s-1; k:=s/2; end

else k:=s;

s:=377; if s mod I

10 = 7 then begin

s:=s+3; k:=s/10

else k:=1;

+1
Ответы (1)
  1. 4 июня, 15:29
    0
    Значение переменной а : = 4;
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Найдите значение переменной "а" а:=12; b:=8; a:=2*b-a; if a>b then c:=a*b-a else c:=b*a-b s=25; if s mod 2 0 then begin s:=s-1; k:=s/2; end ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
1. определить значение переменной А после выполнения оператора X:=5; if X>-3 then A:=X mod 2 else A:=abs (X) ; 2. определить значение переменной А после выполнения оператора X:=-26; Y:=6; if X div Y=4 then A:=X mod Y else A:=X*Y; 3.
Ответы (1)
Uses crt; var n, s, s1, s2, k:integer; begin writeln ('Введите число: ') ; readln (n) ; s:=0; s1:=0; s2:=0; while n>0 do begin inc (k) ; if k mod 2 = 0 then begin s:=s+n mod 10; n:=n div 10; end else begin s1:=s1+n mod 10; n:=n div 10; end;
Ответы (1)
Какое число будет напечатано в результате выполнения программы: var i, k: integer; function f (x: integer) : integer; var m: integer; begin if x < 10 then f : = x else begin m : = f (x div 10) ; if m < x mod 10 then f : = x mod 10 else f : = m; end;
Ответы (1)
Нужна помощь с кодом Pascal. If k11 = k12 then Begin If k12 = k13 then Begin If k12 = 'х ' then goto win1 Else goto win2; End; End; Else goto showp1; Выдает ошибку на последнем Else Program1. pas (132) : Встречено 'Else', а ожидался оператор
Ответы (2)
Есть задача и надо сказать, в чем ее суть: var a, b, s, n, u:integer; begin readln (s) ; n:=s mod 4; u:=s mod 2; if (S mod 2>0) then writeln ('Инвалиды') else for a:=0 to n do begin for b:=0 to u do begin if ((a*4) + (b*2) = s) then writeln (a, b) ;
Ответы (1)