//PascalABC.NET 3.0
begin
for var i := 1 to 10 do
begin
for var j := 1 to 10 do
if i = 1 then write(j : 3)
else if j = 10 then write(9 + i : 3)
else if i = 10 then write(29 - j : 3)
else if j = 1 then write(38 - i : 3)
else write(0 : 3);
writeln;
end;
<span>end.</span>
Ответ:
1.
program vlasov_loc;
var i, s: integer;
var a: array [1..7] of integer;
begin
for i:= 1 to 7 do readln(a[i]);
for i:= 1 to 7 do a[i]:= a[i] - 1;
for i:= 1 to 7 do writeln ('a[', i,'] = ', a[i]);
for i:= 1 to 7 do s:=s+a[i];
writeln ('Сумма элементов нового массива - ', s)
End.
Объяснение:
<u>Pascal:</u>
var x,y:real;
begin
write ('X = ');
readln(x);
write ('Y = ');
readln(y);
writeln ('Summa: ',x+y);
writeln ('Srednee: ',(x+y)/2);
readln;
end.
<u>C++:</u>
#include <iostream>
using namespace std;
int main()
{
float x,y;
cout <<"X = ";
cin >>x;
cout <<"Y = ";
cin >>y;
cout <<"Summa: " <<x+y <<endl
<<"Srednee: " <<(x+y)/2 <<endl;
return 0;
}
Да, поместятся.
2 ГБ - 2000 мб.
151*3=453 мб.
Поместится :)