Какие из записанных ниже операторов ветвления являются правильными? a) if a<b then a:= a+1 else b:= b-1;

b) if (x<5) and (y>3 ) then s:= s+1; else s:= s-1;

c) if a<>b then b:= a;

d) if 9 then k:= k+1

Question

Информатика: Какие из записанных ниже операторов ветвления являются правильными? a) if a b then a:= a+1 else b:= b-1; b) if (x 5) and (y 3 ) then s:= s+1; else s:= s-1; c) if a b then b:= a; d) if 9 then k:= k+1 ​

DetkaGeimer · Accepted Answer

1.

var

T, C : array [1..25] of real;

sumT, sumC : real;

i : integer;

begin

for i := 1 to 25 do read (T[i]);

for i := 1 to 25 do read (C[i]);

sumT := 0; sumC := 0;

for i := 1 to 25 do

begin

sumT := sumT + T[i];

sumC := sumC + C[i];

end;

writeln ('Средний вес = ', sumT / 25);

writeln ('Средний рост = ', sumC / 25);

end.

2.

const

maxn = 1000;

var

a : array [1..maxn] of integer;

n, i : integer;

begin

read (n); //Если n дано

//Если n не дано, нужно читать до конца строки

//while not eoln do begin n := n + 1; read (a[n])} end;

for i := 1 to n do read (a[i]); //Если n дано

for i := n downto 1 do

if i mod 2 = 1 then write (a[i], ' ');

end.

Тесты: а) 8 5 1 б) 9 8 4 6 1

Какие из записанных ниже операторов ветвления являются правильными? a) if a<b then a:= a+1 else b:= b-1; b) if (x<5) and (y>3 ) then s:= s+1; else s:= s-1;c) if a<>b then b:= a; d) if 9 then k:= k+1 ​

MOGZ ответил

Какие из записанных ниже операторов ветвления являются правильными? a) if a<b then a:= a+1 else b:= b-1;

b) if (x<5) and (y>3 ) then s:= s+1; else s:= s-1;

c) if a<>b then b:= a;

d) if 9 then k:= k+1