Wings 3D
Art of Illusion
SketchUp
K-3D
Blender
и встроеный в Windows 10 Paint 3D
В 1 килобайте- 8 192 бит
в 1 мегабайте-8 288 608 бит
в 1 гигабайте-8 589 934 592 бит
Program z;
var n,a,b,s:integer;
begin
s:=0;
for n:=1 to 999 do
begin
a:=n mod 10;
b:=(n div 100) mod 10;
if a+b=7 then s:=s+1;
end;
writeln(s);
end.
var a:array[1..10,1..15]of integer;
i,j,n,x:integer;
begin
for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101);
for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end;
readln(x);
for i:=1 to 10 do for j:=1 to 15 do
if a[i,j]=x then inc(n);
writeln(n);
end.
var a:array[1..10,1..15]of integer;
i,j,k:integer;
begin
for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101);
for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end;
for i:=1 to 10 do for j:=1 to 15 do
if a[i,j] mod 2=0 then inc(k);
writeln(k);
end.
//написано на (си/си++)
#include <iostream>
#include <stdio.h>
#include <time.h>
int main(){
setlocale(LC_ALL,"");
srand(time(NULL));
int arr[10];
int mul = 1;
for (int i = 0;i < 10;++i){
arr[i] = rand() % 1000;
if (arr[i] %2 == 0){
mul *= arr[i];
std::cout << arr[i] << "\n";
}
}
std::cout << "Произведение четных чисел:" << mul;
system("pause");
return 0;
}