Question

Помогите составить программу в паскаль!!!!!

Answer 1

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.

Answer 2

Это обычная переменая

Answer 3

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.

Answer 4

Можно так

Answer 5

О, спасибо огромное!!!!!!!!!

Answer 6

otvet это была переменая как сейчас и "C"