05.11.2022 07:09
Решено
Запишите через запятую наименьшее и наибольшее значение числа d, которое нужно ввести, чтобы после выполнения программы было напечатано 153? var n, s, d: integer; begin readln(d); n : = 33; s : = 4; while s < = 1725 do begin s : = s + d; n : = n + 8 end; write(n) end.
Лучшие ответы
9
4,8(29 оценок)
Информатика
05.11.2022 17:00
33 + k * 8 = 153, где k - количество итераций цикла
k = (153 - 33) div 8 = 15;
s + k * d > 1725;
d > (1725 - 4) div 15;
d > 114;
s + (k - 1) * d < = 1725;
d < = 1721 div 14;
d < = 122;
dmin = 115; dmax = 122
0
4,6(74 оценок)
Информатика
05.11.2022 12:33
Матрица не может быть прямоугольной так иначе будет не понятно что подразумевается под диагональю #include< iostream> #include< vector> int main() { int n; std: : cin> > n; std: : vector< std: : vector< int> > matrix(n); for (int i =0; i< n; ++i) { for (int j =0; j< n; ++j) { int elem; std: : cin> > elem; matrix[j].push_back(elem); } } int first_diag = 0; int second_diag = 0; for (int i = 0; i< n; ++i) { first_diag+=matrix[i][i]; second_diag += matrix[i][n-i-1]; } int res = 0; res = first_diag - second_diag; std: : cout< < res; }
7
4,5(63 оценок)
Информатика
05.11.2022 12:33
Вобщем, т.к. ты мне не ответил - лови две программы: 1) program dasf; var b,c,i: integer; a: array[1..100] of real; d: array[1..100] of real; begin writeln('введите размерность массива d'); readln(b); for i: =1 to b do begin writeln('введите элемент массива №',i); readln(d[i]); end; writeln('массив а: '); for i: =1 to b do begin if i mod 2=1 then a[i]: =5+(d[i]*d[i]) else a[i]: =d[i]/i; writeln(a[i]); end; end. 2) program fgsadg; var i,b,x,y,z,k,t: integer; begin writeln('введите сколько чисел будет использоваться: '); readln(b); writeln('введите х: '); readln(x); writeln('введите число №',1); readln(z); k: =0; for i: =2 to b do begin writeln('введите число №',i); readln(y); if z+y=x then k: =k+1; z: =y; end; writeln(k); end. если что-то не будет работать - отпиши, мог кое-что удалить случайно при переносе.
7
4,6(63 оценок)
Информатика
23.03.2022 06:43
16
4,8(33 оценок)
Информатика
03.10.2020 11:18
5
4,4(1 оценок)
Информатика
05.04.2021 02:28
7
4,6(33 оценок)
Информатика
18.03.2023 20:18
7
4,7(71 оценок)
Информатика
05.03.2020 08:50
17
4,7(57 оценок)
Информатика
11.01.2021 18:25
14
4,6(3 оценок)
Информатика
20.05.2020 23:34
1
4,5(44 оценок)
Информатика
17.11.2020 07:20
3
4,6(48 оценок)
Информатика
05.11.2021 11:02
15
4,6(21 оценок)
Информатика
15.07.2021 01:46