VAR a:array[1..10000,1..10000]of integer; m,n,k,i,j: integer;
begin
write('Введите 3 целых числа m, n, k = '); read(m,n,k);
writeln;
for i:=1 to m do begin
for j:=1 to n do
a[i,j]:=i+j+k; write(a[i,j]:6);
writeln; end;
<span>end.</span>
<em><u>ВНИМАНИЕ! ВАЖНО!</u></em>
Во вложении находится архивный файл LT.RAR, у которого расширение RAR переименовано в TXT, поскольку вложить сюда RAR-архив невозможно.
В архивном файле находится проект VB-6 и исполняемый файл, который при наличии на компьютере среды поддержки VB, покажет работу программы.
<em><u>Код проекта:</u></em>
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 4275
ClientLeft = 60
ClientTop = 450
ClientWidth = 5880
LinkTopic = "Form1"
ScaleHeight = 4275
ScaleWidth = 5880
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmdTiger
Caption = "Это ТИГР"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 204
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 1
Left = 1800
TabIndex = 1
Top = 3240
Width = 2055
End
Begin VB.CommandButton cmdLeo
Caption = "Это ЛЕВ"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 204
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 0
Left = 1800
TabIndex = 0
Top = 2520
Width = 2055
End
Begin VB.Image Image2
Height = 1995
Left = 1560
Picture = "Leo_Tiger.frx":0000
Top = 240
Visible = 0 'False
Width = 2655
End
Begin VB.Image Image1
Height = 1995
Left = 1200
Picture = "Leo_Tiger.frx":44CE
Top = 240
Visible = 0 'False
Width = 3300
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdLeo_Click(Index As Integer)
Me.Image1.Visible = True
Me.Image2.Visible = False
End Sub
Private Sub cmdTiger_Click(Index As Integer)
Me.Image2.Visible = True
Me.Image1.Visible = False
End Sub
<em><u>Замечание:</u></em> На самом деле этот код не нужен, если открыть прилагаемый проект, он будет доступен.
от точки во всех фигурах прочертил линию.
на пример:чертишь черту у фигуры номер один и получается квадрат.___
|. | с 3 получается надо..
-----. раскрасить.
В русском алфавите 33 букв (символа), значит весь алфавит весит 33 * 3 = 99 бит это примерно 12,3 байта.
//Dev-C++ 4.9.9.2
#include <iostream>
using namespace std;
int main(){
int k=1;
int ar[4];
for(int i=0;i<4;i++){
cin>>ar[i];
k=k*ar[i];}
cout<<k;
cin.get();
cin.get();
return 0;
}
Пример ввода:
1
2
3
4
Пример вывода:
24
