Регистрация
Анастасия4111
10.10.2021 13:50
Информатика
Есть ответ 👍

перевести с Паскаля на С++ program n;
const
n = 4;
var
i, j, k : integer;
a : array[1..n,1..n] of real;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i][j]:=sin((i*i + j*j) / n);
}
write(a[i][j],' ');
end;
writeln;
end;
for i:=1 to n do
for j:=1 to n do
if(a[i][j]>0) then
k:=k+1;

writeln('положительных элементов = ',k);
readln;
end.

265
369
Посмотреть ответы 2

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

alenasher1try
alenasher1try
4,8(16 оценок)

Program z1;

uses crt;

var x: read;

z,d:integer;

begin

clrscr;

write( "Введите число_")

realden(x);

x:=x*10;

z:=trunc(x);

d:=z mod 10;

writeln("первая цифра дробной части=",d);

readkey;

end.

mariya1810
mariya1810
4,7(3 оценок)

ошибка в задание.

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