Содержание
- 2. program NN2; var a,b,c,e,d:integer; begin write ('Введите число - '); readln (a); e:=0;c:=1;b:=0;d:=1; while a>0 do
- 3. program NN2; var a, e:integer; begin write ('Введите число - '); readln (a); e:=0; while a>0
- 4. program NN1; var a,b,c,e:integer; max,min:longint; begin write ('Введите число - '); readln (a); max:=0; min:=9; while
- 5. var r, x, y : real; begin write('Введите радиус: '); readln(r); write('Введите координаты точки: '); read(x);
- 6. uses crt; var a,b,e:integer; w,z,k,x:integer; begin writeln ('Данная программа, предназначена для перевода десятичных'); writeln ('чисел в
- 7. program str1; uses crt; function dec2bin(x:integer):string; // бинарное число var s:string; begin s:=''; while x>0 do
- 8. uses crt; var a,b,e:integer; w,z,k,x:integer; begin writeln ('Данная программа, предназначена для перевода десятичных'); writeln ('чисел в
- 10. Скачать презентацию