Информатика, опубликовано 09.02.2019 09:00
Завтра ! составьте программу, которая вводит с клавиатуры 2 числа и выводит на экран их сумму, разность, произведение и частное.
Ответ оставил: Гость
Pascal: var a,b: real; begin write ('a = '); readln (a); write ('b = '); readln (b); writeln ('summa: ',a+b); writeln ('raznost: ',a-b); writeln ('proizvedenie: ',a*b); if b=0 then writeln ('division by zero! ') else writeln ('chastnoe: ',a/b); readln; end. c++: #include < iostream> using namespace std; int main() { float a,b; cout < < "a = "; cin > > a; cout < < "b = "; cin > > b; cout < < "summa: " < < a+b < < endl < < "raznost: " < < a-b < < endl < < "proizvedenie: " < < a*b < < endl; if (b==0) cout < < "division by zero! "; else cout < < "chastnoe: " < < a/b < < endl; }
Ответ оставил: Гость
Program pr;
var a:array [1..10] of integer
i, imax, imin, mx, mn, n:integer;
begin
for i := 1 to 10 do
a[i] := random(50);
mx := a[1];
for i := 2 to 10 do
begin
if a[i] > mx then
begin
mx := a[i];
imax := i
end;
end;
mn := a[0];
for i := 2 to 10 do
begin
if a[i] < mn then
begin
mn := a[i];
imin := i
end;
end;
a[imax] := mn;
a[imin] := mx
writeln(a);
end.
var a:array [1..10] of integer
i, imax, imin, mx, mn, n:integer;
begin
for i := 1 to 10 do
a[i] := random(50);
mx := a[1];
for i := 2 to 10 do
begin
if a[i] > mx then
begin
mx := a[i];
imax := i
end;
end;
mn := a[0];
for i := 2 to 10 do
begin
if a[i] < mn then
begin
mn := a[i];
imin := i
end;
end;
a[imax] := mn;
a[imin] := mx
writeln(a);
end.
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01