1. var d, x : real ; s, w : byte ; k : boolean;
Какие из следующих выражений допустимы?
1) w:=x*s; 2) s:=-10*w; 3) k:=(s>w); 4) w:=d+x ; 5) k:=false and false;

2. Найти ошибки в след. фрагменте прог-мы и объяснить их:
Var a:byte; c,f: Boolean;
Begin
A:= strtoint( Edit1.Caption);
C:= false;
F: = a and c;
A:= Inc(a);
end.
3. Составить прог-му, используя уловный оп-р If.. then.. else для решения след. задачи: вычислить стоимость покупки S с учётом скидки DX: цена покупки Х вводится с клавиатуры, если
Х < =200, то скидка =5 %, иначе DX=10% (делфи, лазарус очень над !​

fananenkova    2   12.05.2020 11:46    1