voloshin238
?>

надо сдать работу 1. Запишите программу подсчета суммы чисел от 3 до 10 program summa; var i, s: integer; begin s:=0; i:=3; while i <=10 do begin s:=s+i; i:=i+1 end; writeln(s) end. Зарисуйте блок-схему для данной программы. Заполните трассировочную таблицу: i<=10 s i 0 3 3<=10(да) 3 4 4<=10(да) 7 5 5<=10(да) 12 6 6<=10(да) … 7 7<=10(да) … 8 8<=10(да) … 9 9<=10(да) … 10 10<=10(да) … 11 11<=10(нет)

Информатика

Ответы

sarycheva659

это какой класс

yusovd291
#include <stdio.h>
#include "stdafx.h"
#include "iostream"
#include "conio.h"
#include "locale.h"
using namespace std;
int main()
{       
int x;     
   cin >> x;       
int a = x;          
   x = (x & 0x55) << 1 | (x & 0xAA) >> 1;   
   x = (x & 0x33) << 2 | (x & 0xCC) >> 2;       
   x = (x & 0x0F) << 4 | (x & 0xF0) >> 4;       
       int  s, k;       
       k = 1;             
s = 0;         
     while (x > 0)           
   {                  
   s += k*(x % 2);    
                k *= 10;       
              x /= 2;      
        }         
     int  p, o;      
        p = 1;         
     o = 0;        
      while (a > 0)       
       {       
              o +=  p*(a % 2);                
     p *=  10;                 
    a /=  2;       
       }      
        cout <<  o;    
          cout <<  "\n" << s;     
         getchar();        
      getchar();         
     return 0;   
     }
получает случайное целое типа int, выводит его двоичное представление на экран, 
Изменить порядок следования битов в числе на обратный
Demina-Khokhlov584
Var N,M,R,S:Array[1..20] of integer; i,min,q,k,max:integer;
begin 
Randomize;
max:=-200; min:=200;
writeln('1 массив');
for i:=1 to 20 do begin
N[i]:= random(100)-50;write(N[i]:4);end;writeln;
writeln('2 массив');
for i:=1 to 20 do begin
M[i]:= random(100)-50;
write(M[i]:4);end;writeln;
writeln('массив Суммы');
for i:=1 to 20 do begin
S[i]:= N[i]+M[i];
if max < S[i] then begin
max:=S[i];q:=i;end;
write(s[i]:4);end;
writeln;
writeln('массив Разности');
for i:=1 to 20 do begin
R[i]:= N[i]-M[i];
if min > S[i] then begin
 min := S[i];k:=i;end;
write(R[i]:4);end;writeln;
writeln('максимальный ' , max, ' его индекс ',q);
writeln;writeln('минимальный ' , min, ' его индекс ',k);
end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

надо сдать работу 1. Запишите программу подсчета суммы чисел от 3 до 10 program summa; var i, s: integer; begin s:=0; i:=3; while i <=10 do begin s:=s+i; i:=i+1 end; writeln(s) end. Зарисуйте блок-схему для данной программы. Заполните трассировочную таблицу: i<=10 s i 0 3 3<=10(да) 3 4 4<=10(да) 7 5 5<=10(да) 12 6 6<=10(да) … 7 7<=10(да) … 8 8<=10(да) … 9 9<=10(да) … 10 10<=10(да) … 11 11<=10(нет)
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

ghjcnjtyjn64
Mikhailova
Александр Сергей
ziyaevak
AkulovaAnastasiya
yanva
r682dm2011
manager6
nkaminskaja
i7aster26
alekseymedvedev1981
lirene
родичева1812
Марюк-Мубариз
Nugamanova-Tatyana840