ПЕР
числа: РЯД 3 ИЗ ВЕЩ;
сч: ЦЕЛ;
найдено: КЛЮЧ;
УКАЗ
найдено := ОТКЛ;
ОТ сч := 0 ДО РАЗМЕР(числа) - 1 ВЫП
ЕСЛИ числа[сч] > 1.6 И числа[сч] < 3.8 ТО
Вывод.ЧВещ("%g ", числа[сч], 0, 0, 0);
ЕСЛИ НЕ найдено ТО найдено := ВКЛ КОН
КОН
КОН;
ЕСЛИ НЕ найдено ТО
Вывод.Цепь("Ни одно число не принадлежит интервалу.")
КОН
//Блок-схема во вложении
//Pascal ABC.NET 3.1 сборка 1256
Var
x,y,z:real;
begin
read(x,y,z);
writeln((x+y+z)/3);
end.
Пример ввода:
1
2
3
Пример вывода:
2
I=N*K
N=15,по умолчанию K=8 бит
<span>I=15*8=120
Через Дано будет также</span>
Using System;
static int Main()
{<span> int n = 1;</span>
<span> for (int i = 1; i <= 5; i++)
</span><span> {
</span><span> for (int z = 1; z <= i; z++)</span><span>
{</span><span>
Console.Write(n);
</span><span>Console.Write("\t");
</span><span>}
</span><span>n++;
</span><span>Console.Write("\n");
</span><span>}</span>return 0;
<span>}</span>
11001101 11101000 11111000 11101110 11101101 11101110 11100010