1. что вы можете сказать о компоненте RadioGroup и его свойствах? 2. Как вы опишите работу компонента CheckBok? какие свойства компонента Memo вы можете перечислить? 4. Какова функция компонента Image?
begin writeln('Сколько тебе лет?:'); readln(b); if b > 17 then begin writeln('В каком институте ты учишься?:'); readln(a); writeln(a, ' хороший институт'); writeln('До следующей встречи!'); end else if b <= 17 then begin writeln('В какой школе ты учишься?'); readln(a); writeln(a, ' не плохая школа'); writeln('До следующей встречи!'); end; end.
Const m=4; n=5; var a:array[1..m,1..n] of real; i,j:integer; max:real; begin Randomize; writeln('Исходный массив:'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=random(10); write(a[i,j]:5:1); end; writeln; end; max:=a[1,1]; for i:=1 to m do for j:=1 to n do if a[i,j]>max then max:=a[i,j]; writeln('max = ',max); for i:=1 to m do for j:=1 to n do if a[i,j]=max then a[i,j]:=a[i,j]/2; writeln('Полученный массив:'); for i:=1 to m do begin for j:=1 to n do write(a[i,j]:5:1); writeln; end; end.
var
a: string;
b: integer;
begin
writeln('Сколько тебе лет?:');
readln(b);
if b > 17 then begin
writeln('В каком институте ты учишься?:');
readln(a);
writeln(a, ' хороший институт');
writeln('До следующей встречи!');
end
else
if b <= 17 then begin
writeln('В какой школе ты учишься?');
readln(a);
writeln(a, ' не плохая школа');
writeln('До следующей встречи!');
end;
end.