Чему будет равно значение переменной p при a=4 и n=3 после выполнения программы program test var a, p: integer; i, n: real; begin write (введите два натуральных числа) readln (a,n); p: =1 for i: =1 to n do p: =p*a; writeln (p=,p) end.

👇

Ответ:

scullboy1

03.04.2023

На самом деле, программа и правда из рук вон криво написана, начиная от простой понятности и лаконичности и заканчивая работо

Рабочий вариант, если я правильно понял ваш код:
Program Yolo;
Uses Crt;
Var a: integer; i, n: byte; p: longint;
Begin
ClrScr;
Writeln('Введите число и его степень.');
Readln(a, n);
p:=1;
For i:=1 to N do
p:=p*a;
Writeln('Получившиеся число: ', p);
Readln;
End.

4 в степени 3 будет равен 64.

4,4(39 оценок)

Открыть все ответы

Ответ:

IvanWINNER

03.04.2023

Unit proect;

{$mode objfpc}{$H+}

interface
uses
Classes, SysUtils, FileUtil, TAGraph, TASeries,Forms,
Controls, Graphics, Dialogs, StdCtrls, ExtCtrls;

type

    { TForm1 }
    TForm1 = class(TForm)
        Button1: TButton;
        Chart1: TChart;
        Image5: TImage;
        Image6: TImage;
        Label14: TLabel;
        Label15: TLabel;
        SinSeries2: TLineSeries;
        CosSeries2: TLineSeries;
        Edit3: TEdit;
        Edit4: TEdit;
        Edit1: TEdit;
        Edit2: TEdit;
        Image1: TImage;
        Image2: TImage;
        Image3: TImage;
        Image4: TImage;
        Label1: TLabel;
        Label10: TLabel;
        Label11: TLabel;
        Label12: TLabel;
        Label13: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        Label4: TLabel;
        Label5: TLabel;
        Label6: TLabel;
        Label7: TLabel;
        Label8: TLabel;
        Label9: TLabel;
        Shape1: TShape;
        SinSeries: TLineSeries;
        CosSeries: TLineSeries;
        SinCosSeries: TLineSeries;
        procedure Button1Click(Sender: TObject);
    private
    { private declarations }
    public
    { public declarations }
    end;

var
    Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
const
    N = 100;
    MIN = -5;
    MAX = 5;
var
    x, step: Double;
    a, b, c, d, i: Integer;
begin
    //чистка предыдущих графиков
    //считываем переменные
    a := StrToInt(Edit1.Text);
    b := StrToInt(Edit2.Text);
    c := StrToInt(Edit3.Text);
    d := StrToInt(Edit4.Text);

    step := (MAX - MIN) / N;
    x := MIN;

    repeat
        //Рисуем графики
        SinSeries.AddXY(x, a * x + b);
        CosSeries.AddXY(x, d * x * x);
        SinCosSeries.AddXY(x, c / x);
        SinSeries2.AddXY(x, sin(x));
        CosSeries2.AddXY(x, cos(x));
        //следующий
        x := x + step;
    until x > MAX;
end;
end.

4,8(22 оценок)

Ответ:

Кристинаголубь

03.04.2023

Unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;
A:array of shortint;
implementation

{$R *.dfm}

Function P(A:integer):boolean;
Var
   d,K:integer;
Begin
P:=true;
if A < 2 then P:=false
else
   if A < 4 then P:=true
   else
      if A mod 2 = 0 then P:=false
      else
         Begin
         K:=Trunc(Sqrt(A));
         d:=3;
         While d <= K do
            Begin
            if A mod d = 0 then P:=false;
            d:=d+2
            End;
         End;
End;

procedure TForm1.Button1Click(Sender: TObject);
Var
   N:integer;
begin
Randomize;
Edit2.Text:='';
N:=StrToInt(Edit1.Text);
SetLength(A,N);
For N:= 0 to N-1 do
    Begin
    A[N]:=Trunc(Sin(random(20))*20);
    if P(A[N]) then Edit2.Text:=Edit2.Text+IntToStr(A[N])+'0 '
    else Edit2.Text:=Edit2.Text+IntToStr(A[N])+' '
    End;
end;

end.

[delphi - form] дан динамический одномерный массив, после каждого собственного числа(число которое д