ответ:а) var x,y: real;б) var a,b,s: real;(a,b - стороны прямоугольника, s - площадь прямоугольника)в) var k:integer;ct,co,s: real;(k - количество тетрадей, ct,co - стоимость 1 тетради и 1 обложки (соответственно), s - стоимости покупки)г) var kt,kk,kr:integer;ct,ck,cr,s: real;(kt,kk,kr - количество тетрадей, карандашей и ручек (соответственно), ct,ck,cr - стоимость 1 тетради, 1 карандаша и 1 ручки (соответственно), s - стоимость покупки)Данные вещественного (real) типа используются значительно чаще целого типа. Они необходимы в тех случаях, когда числовые значения могут содержать дробные части.Данные целочисленного (integer) типа используются для представления целых чисел.
Объяснение:
без использования всяких функций
Объяснение:
Pascal
var
a:array [1..12] of integer;
i, j, k:integer;
begin
randomize;
for i:=1 to 12 do
a[i]:=random(101)-50;
print(a);
writeln();
i:=1;
while i <= 12 do begin
for j:= i to 12 do
if a[j]<a[i] then begin
k:=a[j];
a[j]:=a[i];
a[i]:=k;
dec(i);
break;
end;
inc(i);
end;
print(a);
writeln();
if a[3] mod 2 = 0 then
writeln(a[3], ' число четное')
else
writeln(a[3], ' число нечетное')
end.