Регистрация
А1А2А3А
13.02.2023 10:13
Информатика
Есть ответ 👍

а) сформулируйте, что выполняет данная программа;
б) Напротив каждой строки программы или блока программы напишите, что он выполняет (блок можно выделить скобкой).
в) допишите строки программы, которые позволят найти количество элементов массива которые нечетные и делятся на 3 (в тексте программы поставьте *, там где должны стоять данные строки.

program p1;
var
f1,f2:text;
n,m,i,j,s,s1,s2:integer;
a:array[1..50,1..50] of integer;
begin
assign(f1,'input.txt');
assign(f2,'res.txt');
rewrite(f1);
write('Vvedite kolichestvo strok n=');
readln(n);
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(f1,a[i,j]:2);
end;
writeln(f1,'');
end;
s:=0;s1:=0;
for i:=1 to n do
for j:=1 to n do
s:=s+a[i,j];

for i:=1 to n do s1:=s1+a[i,i];
s2:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j] append(f2);
writeln(f2,'сумма = ',s,' s1= ',s1,' s2= ',s2);
close(f1);
close(f2);

end.

260
464
Посмотреть ответы 1

Ответы на вопрос:

Reginka24082007
Reginka24082007
4,5(51 оценок)
Program n1; var x,y,n,z,h,c: real; function arccos(x : real) : real; begin arccos : = 2 * arctan(sqrt((1 - x) / (1 + ; end; procedure ygls( a,b,c,t: real); var al,be,ga: real; begin al : = arccos((sqr(b) + sqr(c) - sqr(a))/(2 * b * c)) * 180 / pi; writeln('угол a= ',trunc(al)); writeln('угол b= ',trunc(180-al-t)); end; begin write('введите сторону а: '); readln(x); write('введите сторону b: '); readln(y); write('введите угол с: '); readln(c); n: =c; c: =cos(c*180/pi); z: =sqrt(x*x+y*y-2*x*y*c); h: =0.5*sqrt(2*(x*x+y*y)-c*c); ygls(x,y,z,n); writeln('сторона c: ',trunc(z)); writeln('высота h: ',trunc(h)); writeln('периметр p: ',trunc(x+y+z)); writeln('площадь s: ',trunc(z*h)); end.

Популярно: Информатика