Visual Basic 6.0 Picture1.Circle (600, 500), 400 таким методом
Создать проект, который по нажатию кнопки будет прорисовывать число 890.

Question

Информатика: Visual Basic 6.0 Picture1.Circle (600, 500), 400 таким методом Создать проект, который по нажатию кнопки будет прорисовывать число 890.

Merser2212 · Answer

Program pr;

uses crt;

Var a,k,k1:integer;

Begin

Writeln("Bведите а");

readin(a);

k1:=1;

k:=0

; While (a<>0) and (k1<1000) do

Вegin

if (a<0) and (a mod 2-0) and (abs (a)<-30000)

then k:%3Dk+1;

readln(a); end;

Writeln(k3},k);

readln;

end. 2) Program pr;

uses crt;

Var a,k,k1:integer;

Begin Writeln('Bведите а);

readln(a);

k1:=1

k:=0

While (a<>0) and (k1<1000) do

Begin if (a>0) and (a mod 24>0) and (abs(a)<-30000)

then k:1k+1;

k1:=k1+1

readln(a):

end

Writeln('k='k');

readin;

end