Question

1.составить программу вывода на экран квадрата числа, если число отрицательное, и куба если число положительное. 2. составить программу вывода на экран чисел от 1 до 50. программа на язеке Паскаля

Answer 1

1.var a,b,c:integer;
begin
read(a);
If a<0 then
a:=a*a
else
a:=a*a*a;
writeln(a)
end.
2.var a,b,c:integer;
Begin
For c:=1 to 50 do
write(c,' ');
end.

Answer 2

Var
i:integer;
BEGIN
readln(i);
if i>0 then
begin
writeln(i*i*i);
end else
begin
writeln(i*i);
end;
END.



var
i:integer;
BEGIN
for i=1 to 50 do
begin
writeln(i);
end;
END.

Answer 3

1. Вот пример программы на языке Pascal, которая выводит на экран квадрат числа, если число отрицательное, и куб, если число положительное:

pascalCopy code
program SquareOrCube;
var
  number: integer;

begin
  writeln('Введите число: ');
  readln(number);

  if number < 0 then
    writeln('Квадрат числа: ', number * number)
  else
    writeln('Куб числа: ', number * number * number);
  
  readln;
end.

2. А вот пример программы на языке Pascal, которая выводит на экран числа от 1 до 50:

pascalCopy code
program NumbersFromOneToFifty;
var
  i: integer;

begin
  for i := 1 to 50 do
    writeln(i);
  
  readln;
end.

Обратите внимание, что код Pascal чувствителен к регистру, поэтому следует убедиться, что ключевые слова (например, begin, end, if, else) написаны с использованием правильного регистра.