Сойлемды аяктаныздар
Модельдеу -
Бояу-
Жарыктандыру-
Түсіру-
Рендеринг-​

// 1.

var
a,b,c: real;

begin
writeln('Введите два катета a,b: ');
readln(a,b);
writeln('Введите гипотенузу c: ');
readln(c);
 if sqr(c) = sqr(a) + sqr(b) then writeln('Треугольник прямоугольный.')
 else writeln('Треугольник не прямоугольный.');
end.

// 2.

var
A: array [1..100] of integer;
x,i,n: integer;

begin
writeln('Введите кол-во чисел N: ');
readln(n);
writeln('Введите числа: ');
for i:= 1 to n do readln(A[i]);
writeln('Вы ввели: ');
for i:= 1 to n do write(A[i]:4);
writeln;
for i:= 1 to n do if A[i] > -1 then x:=x+1;
writeln('Среди них положительных: ',x);
end.

#include <stdio.h> #include <stdlib.h> void build(int*, int ); void heap(int*, int); int main(void) { FILE *fin; int *a,n,i;   fin=fopen("input.txt", "r");   fscanf(fin,"%d", &n); a=(int*)malloc(n*sizeof(int)); for (i=0; i<n; i++) fscanf(fin,"%d", &a[i]); printf("pervona4alniy vid\n"); for (i=0; i<n; i++) printf("%d ", a[i]); printf("\n"); build(a, n); printf("\n postroenie\n"); for (i=0; i<n; i++) printf("%d ", a[i]); heap(a,n); printf("\n kone4niy vid\n"); for (i=0; i<n; i++) printf("%d ", a[i]); printf("\n"); return 0; } /* */ void build(int *a, int n) { int i,j,k,temp; for (i=0; i<n/2; i++) { j=2*i+1; k=i; if ((a[j+1]>a[j])&&(j+1<n)) j++; while ((j>0)&&(a[j]>a[k])) { temp=a[j]; a[j]=a[k]; a[k]=temp; j=k; k=(k-1)/2; } } } /* */ void heap(int *a, int n) { int nn,temp,i; nn=n; while (nn>0) { temp=a[0]; a[0]=a[nn-1]; a[nn-1]=temp; nn--; build(a,nn);   for (i=0; i<n; i++) printf("%d ", a[i]); } }