Var a,S,P:integer;
Begin
Readln(a);
S:=a*a;
P:=a*4;
writeln('Периметр = ',P,' Площадь = ',S);
readln;
end.
Unsigned 32 bit
max: +4 294 967 295
min: 0
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
1)
begin
var x := ReadReal('x =');
Writeln(abs(x**2 - x**3) - 7*x/(x**3 - 15*x));
end.
2)
begin
var x := ReadReal('x =');
if (x <= 0) then
Writeln(0)
else
if (x <= 1) then
Writeln(x)
else
Writeln(x**4);
end.
Using System;
public class MainClass
{
public static void Main()
{
Console.Write("Размер массива: ");
int s = Convert.ToInt32(Console.ReadLine());
int[] a = new int[s];
int input;
for (int i = 0; i < s; i++) {
Console.Write($"[{i}] = ");
input = Convert.ToInt32(Console.ReadLine());
if (input == 0) {
Console.WriteLine("Введён 0, повторите ввод.");
i--;
continue;
} else {
a[i] = input;
}
}
int min = a[0];
for (int j = 1; j < s; j++) {
if (a[j] < min) {
min = a[j];
}
}
Console.WriteLine($"Минимальный элемент: {min}");
}
}
3 мб
512×2=1024
1024×2=2048
1024+2048=3072
переводим в мб и получим 3 мб