помогите пожалуйста, я просто этого не разумею

И на каком языке?

все

на Паскале

ну на английском

Это затянется навечно

мне не срочноь)

спасибо больше

если б не ты

не смогу контрольную написать

выручил прям

Терпеть не могу паскаль...
1
integer - целые переменные, к примеру  1   5  -8
real - вещественные либо дробные переменные  7,15   48,1  7,0
string - строчки, в которые можно писать все попорядку 'adadawd'    '2', при этом '2' строковое и 2 численное - это НЕ одно и тоже.


2
program Something;
var y, x: real;

begin
writeln('Введите x ' );
readln(x);
y := (3*x*x + 18)*x + 12*x*x*x - 5;
writeln(y:2:3);

end.


3
а)
program Sommething;
var a, b: integer;

begin
writeln('Введите числа ' );
readln(a, b);
if a gt; b then begin
writeln(a); end
else begin
writeln(b); end;
end.

б)
var a, b, c: integer;

begin
writeln('Введите числа ' );
readln(a, b, c);
if (a gt; b) and (a gt; c) then begin
writeln(a); end;
if (b gt; a) and (b gt; c) then begin
writeln(b); end;
if (c gt; a) and (c gt; b) then begin
writeln(c); end;

end.

в)
var a, b, c, D, x1, x2: real;

begin
writeln('Введите коэффициенты ' );
readln(a, b, c);
D := (b*b)-4*a*c;
if D gt;= 0 then begin
x1 :=  (-b + sqrt(D))/(2*a);
x2 :=  (-b - sqrt(D))/(2*a);
if D gt; 0 then begin
write(x1:2:3, ' ', x2:2:3);
end
else begin
write(x1:2:3);
end;

end
else begin
writeln('D lt; 0  Решений нет')
end;
end.

4
а)
var i : integer;
begin
i := 5;
while i lt;= 60 do
begin
if i mod 2 = 0 then begin
write(i, ' ');
end;
Inc(i);
end;
end.

б)
var i, s : integer;

begin
s := 0;
i := 10;
while i lt;= 20 do
begin
s := s + i;
Inc(i);
end;
write(s)
end.

Дальше мои зания в настолько "прекрасном" языке как паскаль кончаются и начинается что-то более понятное, то есть C++:

5
include lt;iostreamgt;
include lt;cstdlibgt;
include lt;ctimegt;

using namespace std;

int main()

 int n;
            cout lt;lt; "Введите число частей ";
            cin gt;gt; n;
            int le[n];
            srand(time(0));
            for(int i=0;ilt;18;i++)
                le[i] = rand()%5 - 5;
           
   
            int max = le[0];
            for(int i=0;ilt;n;i++)
                if(max lt; le[i])max = le[i];
           
            cout lt;lt; "Наибольшее число одинаково " lt;lt; max lt;lt; endl;
   

    return 0;



6
а)
include lt;iostreamgt;
include lt;stringgt;

using namespace std;

int main()

string a;

    cin gt;gt; a;
    int size = a.size();

    for(int i=0;i lt; size; i++)
        if(a[i] == 'A')
            a[i] = 'Y';
       
   
    cout lt;lt; a lt;lt; endl;

    return 0;



б)
    string a;
    char n;
    int m=0;
    cout lt;lt; "Введите строку ";
        cin gt;gt; a;
        cout lt;lt; "Введите знак ";
            cin gt;gt; n;

        int size = a.size();

        for(int i=0;i lt; size; i++)
            if(a[i] == n)
                m++;
           
       
        cout lt;lt; m lt;lt; endl;


    return 0;


40 минут
40 минут я писал это.
Кто там говорил, что ныне не существует рабов?