mnkrasnova
?>

перевести с Паскаля на С++ 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.

Информатика

Ответы

cochana

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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

перевести с Паскаля на С++ 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.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Andrei
alexeytikhonov
ВайсманКреденс357
Andreeva
спец387
beyound2006193
eduard495
Vasilevich
Александрович784
maisa1991
Ахмедшина Трубников1249
Minchenkova
Абдулганиева Сергей
tanya14757702
tarkhanovilya