Хто розробив першу в Україні комп’ютерну базу даних?

program nm13; uses crt; var s1,s2,d,a,diag: real; beginwriteln('vvedi ploschad kruga i ploschad kvadrata'); readln(s1); readln(s2); d: =2*sqrt(s1/3.14); a: =sqrt(s2); diag: =2*sqrt(2*a*a); if diag> d then writeln (' krug pomestits9 v kvadrate ') else writeln (' krug ne pomestits9 v kvadrate ');

readln;

end.

письменность китая похожа на египетскую письменность.

так как основана на иероглифах.

qbasic

? "введите стоимость книг и сумму денег соответсвенно через запятую"

input a,b

if a=b then 1 else 2

1 ? "" : goto 10

2 if a> b then 3 else 4

3 a-b=c

? "не хватает денег,доплатите"; c : goto 10

4 b-a=r

? "ваша здача"; r

10 end

var t : array [1..10] of integer; c : array [1..10] of real; {если цена не дробная то можно c : array [1..10] of integer; и a: integer; } i : integer; a : real; begin a: =0; for i : = 1 to 10 do begin readln(t); readln(c); end; for i : = 1 to 10 do a : = t*c + a; writeln; writeln(a); en