//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию

var
    A, B: integer;

begin
    readln(A, B);
//    Assert((A > 0) and (A < B), 'не верные параметры'); //проверка на дурака если надо

    while A <= B do
    begin
        writeln('Квадрат числа ', A, ' = ', A * A);
        A := A + 1;
    end;
end.

0 0

5 лет назад

Прочитать ещё 2 ответа

Помогите, пожалуйста! Дан ряд чисел 1-2+3-4+5-...+56 Найти сумму ряда Нужно написать программу в Pascal ABC и нарисовать блок-сх

Юля639 [3.2K]

Var
a,b,i:integer;
begin
for i:=0 to 56 do
begin
if i mod 2 = 0 then a:=a-i else a:=a+i;
end;
end.

0 0

4 года назад

Знайти індекс мінімального елемента масиву. обчислити добуток його від'ємних елементів

David1799 [20]

Const n = 10;
var a:array [1..n] of integer;
i,min,imin:integer; p:longint;
begin
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
min:=a[1]; imin:=1;
p:=1;
for i:=1 to n do
begin
if a[i]<min then begin min:=a[i]; imin:=i; end;
if a[i]<0 then p:=p*a[i];
end;
writeln('min = ',min,' imin = ',imin);
writeln('p = ',p);
end.

Пример:
9 5 10 -5 2 10 0 8 -8 2
<span>min = -8 imin = 9
p = 40</span>

0 0

2 года назад

Всегда следует продумывать _____________ решения задачи.

smolovb

Ответ:

План

Объяснение:

0 0

4 года назад