Pascal: 1) const n = 10; var a:array [1..n] of integer; i:integer; begin randomize; for i:=1 to n do begin a[i]:=random(21)-10; write (a[i]:3); end; writeln; for i:=1 to n do begin if a[i]>0 then a[i]:=99; write (a[i]:3); end; writeln; end.
2) const n = 10; var a:array [1..n] of integer; p,s,i:longint; begin p:=1; s:=0; randomize; for i:=1 to n do begin a[i]:=random(21)-10; if a[i]>0 then p:=p*a[i] else if a[i]<0 then s:=s+a[i]; write(a[i]:3); end; writeln; writeln ('Proizvedenie: ',p); writeln ('Summa: ',s); end.
Pascal: var n:integer; f:boolean; begin f:=false; repeat write ('N = '); readln (n); until (n>=1000) and (n<=9999); while (not f) and (n<>0) do begin if n mod 10 = 4 then f:=true; n:=n div 10; end; if f then writeln ('YES') else writeln ('NO'); end.
C++: #include <iostream> using namespace std;
int main() { int n; bool f = false; while (n<1000 || n>9999) { cout <<"N = "; cin >>n; } while (!f && n!=0) { if (n%10==4) f = true; } if (f) cout <<"YES" <<endl; else cout <<"NO" <<endl; return 0; }
заменить - правка-заменить или Ctrl+R