konstantinslivkov
?>

Скажите как это разблокировать НУЖНА

Информатика

Ответы

Galliardt Sergeevna1284

Возможно отключили за нарушение правил. Цитирую:

"Мы отключаем те аккаунты Facebook, которые нарушают Условия Facebook. Сюда относятся:

Размещение контента, который противоречит Условиям Facebook.

Использование ненастоящего имени.

Представление себя под именем другого человека.

Систематическое нарушение Норм сообщества Facebook.

Взаимодействие с другими людьми с целью преследования, рекламы, продвижения или совершения других запрещенных действий."

o-lala88387

const

  n = 10; //Количество чисел, которое нужно ввести
var
  a: array [1..n] of 10..99; {Массив двузначных чисел, которые вводятся с клавиатуры}
  number, i: integer; //number - количество чисел

begin
  number:= 0; //Обнуляем счетчик
  for i:= 1 to n do //Вводим n двузначных чисел
  begin
    writeln('Введите двузначное число');
    readln(a[i]);
  end;
  write('Числа, которые делятся на 4,но не делятся на 6: ');
  for i:= 1 to n do  {Распечатываем числа, которые делятся на 4, но не делятся на 6}
    if (a[i] mod 4 = 0) and (a[i] mod 6 <>0) then {если число делится на 4 и не делится на 6, прибавляем к счетчику 1}
  begin
    write(a[i], ' ');
    number:= number + 1;
  end;
  writeln;
  writeln('Количество чисел, которые делятся на 4, но не делятся на 6: ', number);
end.

elmiro4ka868617

Console.Write("Строка: ");

string text = Console.ReadLine();

char character;

uint leftChars, rightChars;

do

   Console.Write("Символ: ");

while(!char.TryParse(Console.ReadLine(), out character));

do

   Console.Write("Символов в начале: ");

while(!uint.TryParse(Console.ReadLine(), out leftChars));

do

   Console.Write("Символов в конце: ");

while(!uint.TryParse(Console.ReadLine(), out rightChars));

for(int i = 0; i < 3; ++i) {

   for(int j = 0; j < leftChars; ++j)

       text = character + text;

   for(int j = 0; j < rightChars; ++j)

       text += character;

}

Console.WriteLine(text);

Console.ReadKey();

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Скажите как это разблокировать НУЖНА
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

cutur3414
delena6467
elenaowchinik4842
Карапетян
Arsen-araqelyan20164
Likhomanova63
aivanova
fakelel
Stanislavovna1237
taksa6444
snab54
coleslow12
Voronina747
михаил
Bezzubova_Stepanov1355