2)
const
n = 20;
var
a : array [1..n] of integer;
b,i,num : integer;
begin
//Формирование массива пропускаю
readln (b);
nom := 0;
for i := 1 to n do //Поиск номера элемента
if a[i] = b then // , равного b
num := i;
if num <> 0 then
writeln ('Есть, его порядковый номер=',num)
else
writeln ('Нет');
end.
Умеренный климатический пояс
Вопрос построен не корректно. Прошу уточнить что имелось в виду
1)128=2**7=>7глубина цвета
200*110*7=19250 байт
2)1000*862=107750 байт
Using System;
// Написать программу, выводящую на экран таблицу квадратов
// четных чисел от 0 до 10 в убывающем порядке: 100, 81, 49...
// Составь блок-схему алгоритма, и напиши программу которая
// выводит на экране узор, состоящий из звездочек. Должно быть 20 строчек со звездочками так, чтобы в каждой последующей строке было на одну звездочку больше. Для вывода на экран строки, со- держащей N звездочек, используй команды
// String repeatedString = new String('*', N); Console.Write (repeatedString);
// Microsoft visual studio c#
namespace NoNamespace {
internal class Program {
private static void Main() {
SquaresOfNumbersDesc();
Stars(20, 10);
Console.ReadLine();
}
private static void SquaresOfNumbersDesc() {
Console.WriteLine();
for (var i = 10; i >= 0; i = i - 2) {
Console.Write("{0} ", i * i);
}
Console.WriteLine();
}
private static void Stars(int n, int start_stars) {
Console.WriteLine();
for (var i = 0; i < n; i++) {
Console.WriteLine(new String('*', start_stars + i));
}
Console.WriteLine();
}
}
}
