Ответы
Ответ дал:
0
uses crt;
var
otvet: real; a,b,z12,z1,z2,x :integer;
begin
textcolor(random(2,15));
write('Задача №: ');
textcolor(random(1,15));
readln(z12);
if (z12<1) or (z12>2) then
begin
textcolor(4);
writeln('Такой задачи нет!');
textcolor(random(1,15));
end;
if z12=1 then
b:=10;
for a:=1 to b do
begin
otvet:=(sqrt(a)+sqr(a)*a)*a;
textcolor(random(1,15));
writeln(a,') ',otvet);
end;
if z12=2 then
b:=40;
for a:=0 to b do
if (a mod 7=0) and (a>0) then
begin
textcolor(random(1,15));
writeln(a,') ',a);
end;
end.
var
otvet: real; a,b,z12,z1,z2,x :integer;
begin
textcolor(random(2,15));
write('Задача №: ');
textcolor(random(1,15));
readln(z12);
if (z12<1) or (z12>2) then
begin
textcolor(4);
writeln('Такой задачи нет!');
textcolor(random(1,15));
end;
if z12=1 then
b:=10;
for a:=1 to b do
begin
otvet:=(sqrt(a)+sqr(a)*a)*a;
textcolor(random(1,15));
writeln(a,') ',otvet);
end;
if z12=2 then
b:=40;
for a:=0 to b do
if (a mod 7=0) and (a>0) then
begin
textcolor(random(1,15));
writeln(a,') ',a);
end;
end.
Ответ дал:
0
Это обычная переменая
Ответ дал:
0
var
c: real;
a, b: integer;
begin
b := 10;
for a := 1 to b do
begin
otvet := (sqrt(a) + sqr(a) * a) * a;
writeln(a, ') ', c);
end;
end.
c: real;
a, b: integer;
begin
b := 10;
for a := 1 to b do
begin
otvet := (sqrt(a) + sqr(a) * a) * a;
writeln(a, ') ', c);
end;
end.
Ответ дал:
0
Можно так
Ответ дал:
0
О, спасибо огромное!!!!!!!!!
Ответ дал:
0
otvet это была переменая как сейчас и "C"
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад