Var
a, b, s : Integer;
begin
Write('введите a= ');
readln(a);
Write('введите b= ');
readln(b);
S:=a+b;
if s<32767 then writeln(s) else writeln('произошло переполнение');
end.
1)
2кбайта = 2048 байт
2048/256=8 сек
2)
800*5=4000 бит
3)
8 бит
Var a: array[1..10] of integer;
var i, j, ans:integer;
begin
ans:=0;
for i:=1 to 10 do
begin readln(a[i]);
end;
for i:=1 to 10 do
begin
for j:=i+1 to 10 do
begin
if a[i]=a[j] then ans:=ans+1;
end;
end;
if ans>0 then writeln('есть')
else writeln('нет');
end.<span> </span>
Вот тебе для двоичной системы, дальше сам додумай,я просто в переводах в системы счисления не силён,только двоичную толком знаю))
Program sist;
var a,b,f:integer;
c,p,i:string;
begin
readln(a); //вводим число
b:=2; //это у нас будет степень, сам потом переделаешь,чтоб вводить её тоже
while a>0 do //тут задаём условие (пока a>0 выполняем действия:)
begin //начало скобки(должен знать)
if a mod b=0 then c:='0' else c:='1'; //проверяем условие(если остаток от деления а поделить на 2 равен 0 то строка равна символу 1 иначе символ 0)
a:=a div b; //делим а на b без остатка
i:=i+c; //присваиваем строке i результат: строка i+результат строки c
end; //конец скобки
for f:=length(i) downto 1 do //начинаем цикл от большего к меньшему(от количества символов в строке i до 1)
p:=p+i[f]; //(к строке p прибавляем символ строки i) это относится к нашему циклу
i:=p; //тут понятно думаю
writeln(p, '(',b,')'); //выводим результат
<span>end.</span>
Привет, код ниже, для справки по функциям советую посетить MSDN.
Если остаются вопросы так же есть хороший сайт как METANIT, там ты можешь найти простые примеры и простую документацию.
Если хочется проверить работаю кода, то есть прекрасный ресурс как Repl It.
Если есть вопросы, пиши в комментариях. За дополнительной информацией пиши в ЛС.
Спасибо за отметку "Лучшее решение" и нажатую кнопочку спасибо и у меня в профиле.
Так же в моем профиле вы можете найти полезные ссылки на ресурсы описанные выше.
-----------------------------------------------------------------------
using System;
class MainClass {
public static int getProductOfNegativeNumbers(int[] array)
{
int result = 1;
foreach (int element in array)
{
if (0 > element)
{
result *= element;
}
}
return result;
}
static void Main()
{
Console.WriteLine("Please, enter length of array: ");
int sizeOfArray = Convert.ToInt32(Console.ReadLine());
int[] array = new int[sizeOfArray];
for (int i = 0; i < sizeOfArray; ++i)
{
Console.WriteLine("Please, enter array entry: ");
array[i] = Convert.ToInt32(Console.ReadLine());
}
int productOfNegativeNumbers = getProductOfNegativeNumbers(array);
Console.WriteLine("Product of negative numbers is: {0}", productOfNegativeNumbers);
}
}
