Укажите, если х - переменная вещественного типа, i - целого типа, с - символьного типа, то какой из следующих операторов присваивания правильный: x =i div 2 + 3.15*x; i = (2+i*4)*ln(i); c =x + i; i =(x=0) or (i>x).
Там написано c=x+i, то есть, в переменную "с" положили целые числа и дробные(данные вещественного типа), если бы "с" была целым типом, то он бы не показал остаток, значит "с" относится к вещественному типу
1. var a: array[1..10] of integer; i, kol: Integer; Begin for i := 1 to 10 do read(a[i]); kol := 0; for i := 1 to 10 do if a[i] mod 2=0 then begin kol := kol + 1; write(a[i],' '); end; writeln; writeln(kol); End. 2. var a: array[1..10] of integer; i, kol: Integer; Begin for i := 1 to 10 do read(a[i]); kol := 0; for i := 1 to 10 do if a[i] > 9 then begin kol := kol + 1; write(a[i],' '); end; writeln; writeln(kol); End. 3. var a: array[1..10] of integer; i: Integer; Begin for i := 1 to 10 do read(a[i]); for i := 1 to 10 do if a[i] mod 2=0 then write(a[i],' '); for i := 1 to 10 do if a[i] mod 2=1 then write(a[i],' '); End. 4. var a: array[1..10] of integer; i, r: Integer; Begin for i := 1 to 10 do read(a[i]); i := 1; while i < 10 do if a[i+1] < a[i] then begin r := a[i+1]; a[i+1] := a[i]; a[i] := r; i := 1; end else i := i + 1; for i := 1 to 10 do if a[i] mod 2=0 then write(a[i],' '); for i := 1 to 10 do if a[i] mod 2=1 then write(a[i],' '); End. 5. var a: array[1..10] of integer; i, kol: Integer; Begin for i := 1 to 10 do read(a[i]); for i := 1 to 10 do if a[i] mod 10 = 5 then kol := kol + 1; writeln(kol); End.
Вещественного
Объяснение:
Там написано c=x+i, то есть, в переменную "с" положили целые числа и дробные(данные вещественного типа), если бы "с" была целым типом, то он бы не показал остаток, значит "с" относится к вещественному типу
P.S: как же сложно объяснять...