Информация для человека - это знания, получаемые из различных источников.
<span>
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
<span>Program konfeti;
Uses
CRT;
Var
x,m:real; {x-цена за килограмм, m-текущая масса}
Begin
CLRSCR;
m:=1.2;
Write('Введите цену за килограмм конфет:');
Readln(x);
While (m<2.1) do
Begin
Writeln('Цена за ',m:0:2,' кг конфет равна ',m*x:0:2,' рублей');
m:=m+0.2
End;
Readln;
End.</span></span>
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
uses GraphABC;
procedure OutLightGreen(n:integer);
begin
var OldColor:=FontColor;
SetFontColor(clLightGreen);
Write(n:5);
SetFontColor(OldColor)
end;
begin
var a:=MatrixRandom(10,14,-180,320);
var m:=ReadInteger('n=');
Writeln;
SetFontColor(clWhite);
Font.Style:=fsBold; Font.Name:='Courier';
Brush.Color:=clBlack; Window.Clear(clBlack);
var k:=0;
for var i:=0 to 9 do begin
for var j:=0 to 13 do
if a[i,j]>m then begin
Inc(k); OutLightGreen(a[i,j]) end
else Write(a[i,j]:5);
Writeln
end;
SetFontColor(clRed);
Writeln('Количество элементов равно ',k)
end.
Например, такая маска должна удовлетворять первым файлам и не удовлетворять вторым
*t*_*a*s