Написать 1) даны натуральные числа а и b (а> b найти результат и остаток целочисленного деления а на b, не используя стандартных операций div и mod. 2. вводится натуральное число n. найти n-ое число фибоначчи. 3. вводится натуральное число n. определить, является ли оно совершенным. совершенным считается число, которое равно сумме своих делителей (конечно, за исключением себя самого).например 6 - совершенное число, т.к. 6=1+2+3. 4. вводится радиус круга r. подсчитать, сколько точек с целочисленными координатами в круг радиуса r с центром в начале координат. 5. вводится натуральное n. получить наименьшее число вида 2r, превосходящее n. 6. даны натуральные числа а и b, являющиеся соответственно числителем и знаменателем дроби. сократить дробь, найдя наибольший общий делитель (нод(а, b)) по алгоритму евклида. алгоритм евклида основан на следующем соотношении: нод(m, n)=нод(m mod n, n), если m и n одновременно не равны нулю и m> n, а mod - остаток от деления.
Ответы
1(это чо за тупая тварь придумала, что после деления натуральных чисел может быть остаток? передай всем что они там мудаки) program day; var c,a,b: real; begin readln(a,b); if a> b then begin c: =a/b; writeln('результат ',c: 0: 0); end else writeln('a не должно быть больше b'); end.
Uses crt; var x: array[1..10]of real; i: integer; min,max: real; begin clrscr; min: =9999999; max: =-9999999; for i: =1 to 10 do begin x[i]: =exp(i*(-1))*(sqr(i)-3*i); if x[i]< min then min: =x[i]; if x[i]> max then max: =x[i]; writeln(x[i]: 1: 5); end; writeln('измененный массив с максимальным=',max: 1: 5,' и минимальным=',min: 1: 5); for i: =1 to 10 do begin if x[i]=min then writeln(max: 1: 5); if x[i]=max then writeln(min: 1: 5); if (x[i]< > min)and(x[i]< > max)then writeln(x[i]: 1: 5); end; end.
Const nx = 20; mx = 20; var a: array[1..nx,1..nx] of real; i,j,n,m: integer; sum: real; begin write('введите размер матрицы'); read(n); for i: =1 to n do begin for j: =1 to n do begin a[i,j]: = random()*100 -50; write(a[i,j]: 9: 4); end; writeln; end; writeln; writeln; for i: =1 to n do begin for j: =1 to n do beginif i < j then begin write(a[i,j]: 9: 4); sum: =sum + a[i,j]; end else write(' ': 9); end; writeln; end; write('сумма = ',sum); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
решить по информатике практическую
Автор: Александровна1973
Сделать подробно в тетрадке ( егэ информатика)
Автор: kirik197308
