Информатика 5 класс реляционная база данных «ученики» задана таблицей: в ней полей и записей a. 4 3 b. 5 4 c. 5 3 d. 3 4 e. 3 5

о! научился формулировать . уже хорошо.

program zadanie1; varmax,num,a : byte; beginmax: =0; writeln('vvodite chisla'); repeatreadln(a);       if a*a> 225 then                      writeln('slishkom bolshoe chislo')      else                      if max< a then max: =a            ;

until a=0; readln; writeln('max=',max); end.

Unit unit1; {$mode objfpc}{$h+} interface uses  classes, sysutils, fileutil, forms, controls, graphics, dialogs, stdctrls,  spin, math; type   { tform1 }   tform1 = class(tform)    button1: tbutton;     edit1: tedit;     edit2: tedit;     label1: tlabel;     label2: tlabel;     label3: tlabel;     label4: tlabel;     procedure button1click(sender: tobject);   private    { private declarations }  public    { public declarations }  end; var  form1: tform1; implementation {$r *.lfm} { tform1 } procedure tform1.button1click(sender: tobject); begin  form1.label4.caption: =floattostr(tan((strtofloat(form1.edit1.text)*2)+strtofloat(form1.edit2.; end; end.