все просто написана программа верно,но для того чтобы она заработала нужно символы расставить а именно( ; )где ?? после writeln и readln
#include <iostream>
<span>#include <iomanip>
</span><span>#include <fstream>
</span><span>using namespace std;
</span>int main() {
<span> int n;
</span><span> float s=0;
</span><span> ifstream f;
</span><span> f.open("input.txt");
</span><span> while(!f.eof()) {
</span><span> f>>n;
</span><span> while (n>0) { s+=n%10; n=n/10; }
</span><span> }
</span><span> f.close();
</span><span> cout<<s<<endl;
</span><span> system("pause");
</span><span> return 0;
</span><span>}
</span>
<span>Windows,Macintosh,Linux, DOS .</span>
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var m:=ReadlnInteger();
var a:=matrixRandom(m,m,-20,20);
Println(a);
var p:=1;
for var i:=0 to m-1 do
for var j:=0 to m-1 do
if a[i,j]>0 then p:=p*a[i,j];
println(p);
end.
1. берет m и будет суммировать 2
пр - m=1 / вывод: 1, 3 , 5 , 7 , 9 ......n
пр - m=2 / вывод: 2, 4 ,6 , 8, 10......n
2. не совсем врубился...
---------------------------------------------------------------------
1) input m , r , n
for m = r to n step 2
s=s+m
next
print s
2)
dim b(100)
for i = 1 to 100
b(i)=1
next
input z "вводишь сколько спортсменов выбыло
while s<=z
input n 'вводишь номера спортсменов которые выбыли.
b(n)=0
s=s+1
wend
for i = 1 to 100
if b(i)>0 then 'выбирает какие ячейки остались ( спортсмены) и пишет их позицию
print i
end if
next
