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.
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();
Поделитесь своими знаниями, ответьте на вопрос:
Размер фотографии 4500 по горизонтали и 2000 по вертикали точек. Каждая точка кодируется 2 байтами. Сколько места займёт такая фотография? ответ запиши в Мбайт. Округли до целых. а) 18 000 000 мбб) 17 мбв) 18 мбг) 9 000 000 мб Не правильный ответ - БАН!
17 мб
Объяснение:
4500*2000*2 = 18 000 000 байт
18 000 000 байт = 17 500 кбайт
17 500 кбайт = 17мб