Держи:
program kk;
uses crt;
var a:array [1..5,1..5] of integer;
i,j:integer;
begin
clrscr;
randomize;
for i:=1 to 5 do
begin
for j:=1 to 5 do
a[i,j]:= random(90)+10;
end;
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(a[i,j],' ');
writeln
end;
writeln;
writeln;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
if (a[i,j] > 0) and (a[i,j] mod 3 = 0) then
begin
writeln(a[i,j],' [',i, ',',j,']');
end;
end;
end;
readkey;
end.
C/C++
#include <iostream>
#define _USE_MATH_DEFINES
#include <math.h>
using namespace std;
int main(){
double angle;
cout << "Enter angle: ";
cin >> angle;
angle = angle * (M_PI / 180);
printf("\nsin: %.4f", sin(angle));
printf("\ncos: %.4f", cos(angle));
return 0;
}
8*x бит=32 Кбайта
8x бит = 262144 бит
x = 32768 бит.
begin
var m := 105;
var n := 15;
Println(1 + (m mod n) * (n mod m)); //1
end.
Var a, b, c:integer;
Begin
Writeln('vvedite chisla');
Readln(a,b,c);
If (a>b) and (a>c) then writeln(a);
If (b>a) and (b>c) then writeln(b);
If (c>a) and (c>b) then writeln(c);
End.