Нужна блок схема к следующим алгоритмам на паскаль школьная работа 4. var i: longint; begin for i: =100 - id189466620200329 от Этоясказал 29.03.2020 18:54

Question

Информатика: Нужна блок схема к следующим алгоритмам на паскаль школьная работа 4. var i: longint; begin for i: =100 to 999 do if (i mod 7)=0 then writeln(i); end.5.var i,s: longint; begin s: =0; for i: =100 to 999 do if (i mod 13)=0 then s: =s+i; writeln(s); end.6. var i,k: longint; begin k: =2; for i: =1 to 10 do begin writeln( 2 в степени ,i, = ,k); k: =k*2; end; end.

Этоясказал · Accepted Answer

#include iostream #include cmath using namespace std; void main()  { int n,sum=0;  float y,k=0;  cin n;  int *mass = new int[n];  for (int i = 0;i n;++i)  { cin mass[i];  }  for (int i = 0;i n;++i)  {  if (mass[i] 0 ) { k++; y=pow(mass[i],2);  cout y; sum+=mas[i] } }  system( pause );  } 2)#include iostream #include cmath using namespace std; void main()  { int s,p,r,day=0; cin  s p r; float km=s; while(r km) { km+=km*p/100; day++; } cout km = km day = day endl; system ( pause ); }...

MOGZ ответил