Var x,y: integer; begin writeln('input x'); if x< =0 then y: =0 else y: =sqr(x); writeln('y=',y); end.
dmitzu8594
11.09.2020
Const n=4; var f: text; a: array[1..n,1..n] of integer; i,j,t: integer; begin writeln('1: '); assign(f,'my.txt'); reset(f); for i: =1 to n do begin for j: =1 to n do begin read(f,a[i,j]); write(a[i,j]: 3); end; readln(f); writeln; end; close(f); for i: =1 to n do for j: = i+1 to n do begin t: =a[i,j]; a[i,j]: =a[j,i]; a[j,i]: =t; end; writeln('2: '); for i: =1 to n do begin for j: =1 to n do write(a[i,j]: 3); writeln; end; end. пример: файл my.txt: 23 28 19 23 34 14 8 14 44 20 14 48 38 47 20 41 результат: 1: 23 28 19 23 34 14 8 14 44 20 14 48 38 47 20 41 2: 23 34 44 38 28 14 20 47 19 8 14 20 23 14 48 41
bochkarevazh
11.09.2020
//dev-c++ 5.11 #include < stdio.h> int main(void) {long long int i,curr; int currsum,flag; long long sum=0; for(i=8; i< =1111111; i++) {curr=i; flag=0; currsum=0; while (curr! =0 & & flag==0) {if (curr%10==0) flag=1; else {currsum+=curr%10; curr/=10; }} if(flag==0 & & currsum==7) sum+=i; } printf("%d",sum); return 0; } вывод: 2165220
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Составить программу для вычисления значения функции у(х): у= 0, если х< =0, х в квадрате, если х> 0