Викторина «игры разума» . Даются 1 тема Архитектура компьютера » Каждая тема состоит из 3 вопросов различного уровня сложности, по 5 10 15 очков каждый.
Просто: 1) система программирования это средство, которое позволяет писать программы, на определенном языке программирования, или на нескольких определенных языках. 2) язык программирования: это система обозначений, которая позволяет записывать алгоритмы. 3) чтоб алгоритм работал на машине, нужно: описание, на языке программирования, ввести в систему программирования, которая по этому описанию сделает выполняемую программу. 4) кроме транслятора, система программирования содержит весь набор инструментов для работы: текстовые редакторы, конструкторы, отладчики, и тд. поэтому называется "система"
Program Sum; Var a, b: Integer; Begin Write('a = '); ReadLn(a); Write('b = '); ReadLn(b); WriteLn('Сумма a и b равна ', a + b); ReadLn; End.
Program SumRow; Const min = 5; max = 28; Var a, i: Integer; Begin a := 0; For i := min To max Do a := a + i; WriteLn('Сумма ряда равна ', a); ReadLn; End.
Program Digit; Var a, b: LongInt; c, d, i: Integer; Begin Write('a = '); ReadLn(a); b := 1; c := 0; While a Div b <> 0 Do Begin c := c + 1; b := b * 10; End; While a > 0 Do Begin d := d + (a Mod 10); a := a Div 10; End; WriteLn('Количество цифр в числе равно ', c); WriteLn('Сумма цифр числа равна ', d); ReadLn; End.
Var a, b: Integer;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
WriteLn('Сумма a и b равна ', a + b);
ReadLn;
End.
Program SumRow;
Const min = 5; max = 28;
Var a, i: Integer;
Begin
a := 0;
For i := min To max Do
a := a + i;
WriteLn('Сумма ряда равна ', a);
ReadLn;
End.
Program Digit;
Var a, b: LongInt;
c, d, i: Integer;
Begin
Write('a = ');
ReadLn(a);
b := 1;
c := 0;
While a Div b <> 0 Do
Begin
c := c + 1;
b := b * 10;
End;
While a > 0 Do
Begin
d := d + (a Mod 10);
a := a Div 10;
End;
WriteLn('Количество цифр в числе равно ', c);
WriteLn('Сумма цифр числа равна ', d);
ReadLn;
End.