const nx = 30; mx = 30; var i,j,m,n,k,qi,qj:integer; D:array[1..nx,1..mx] of real; min:real; begin min:= 30.0; writeln('Введите n и m'); Readln(n,m); for i:= 1 to n do begin for j:= 1 to m do begin D[i,j] := random()*20 -10; write(D[i,j]:6:2); if D[i,j]< 0 then k:= k + 1; if min > D[i,j] then begin min := D[i,j];qi:=i;qj:=j; end; end; writeln; end; Writeln('минимальный элемент матрицы ',min); Writeln('номер строки ',qi); Writeln('номер столбца',qj); Writeln('количество отрицательных элементов матрицы',k); end.
var a,a12,a1,a2,a3,s: integer;
begin
readln(a);
a1:=a div 100;
a12:=a mod 100;
a2:=a12 div 10;
a3:=a12 mod 10;
s:=a1+a2+a3;
writeln(s);
end.
a1-первое число трехзначного числа, a2-второе,a3-третье, a12-вторые два числа
На языке C
#include <stdio.h>
#define MIN -10
#define MAX 10
void vychislenie(float shag);
int main(){
float shag=0;//shag X-a
printf("Programma vyschityvaet znachenija funkcii y=x^2 pri x = -10 do 10\n\n");
printf("Vvedite shag funkcii: ");
scanf("%f", &shag);
vychislenie(shag);
return 0;
}
void vychislenie(float shag){
float y=0;
float x=MIN; //x=-10
do{
y=x*x;
if(x>=MIN&&x<=MAX){
printf("x=%.2f y=%.2f\n", x, y);
}
x=x+shag;
}while(x<MAX+1);
}
64=2^6
1024*512*6= 3 145 728бит= 384Кбайт
Ответ: 384