3. а= 5
4. а=64
5. вывдет 32 ( получается 32, потому что нету пробелов между 3 и 2)
6. 464 (потому что между 6 и 4 нету пробелов)
7. i= 1
Ну, для того, чтобы сравнить эти 2 значение. Нужно обратиться непосредственно к словарю.
Чем отличаются данные от программы?
<span><u>Данные</u> могут обрабатываться человеком, которому принадлежат сами данные.
</span><u>Программа </u>Управление компонентами вычислительной системы и формирование среды для функционирования прикладных программ берёт на себя системное программное обеспечение<span>, наиболее важной составляющей которого является </span>операционная система<span>. То есть все делает компьютер.)
</span><span>Общее.
</span>Скорее всего, что у данных есть 2 типа - двоичные и текстовые. Ну, а так как программа часть компьютера, то эти типы и ей принадлежат.)
Двоичные данные обрабатываются только специализированным программным обеспечением<span>, знающим их структуру, все остальные программы передают данные без изменений.
</span>Ну, и.
С точки зрения программиста, данные — это часть программы, совокупность значений определённых ячеек памяти, преобразование которых осуществляет код. С точки зрения компилятора, процессора, операционной системы, это совокупность ячеек памяти, обладающих определёнными свойствами (возможность чтения и записи ), невозможность исполнения).
Если, что-то не так, то заранее извини.)
Напишу только алгоритм, если знаете паскаль, написать не составит труда:
1) Вводим три числа a,b,c;
2) Делаем проверку
if (a+b>0 or a+c>0 or b+c>0) then
'есть положительная сумма'
else
'таких сумм нет'
'
Program Task;
Var a: Array of Integer;
n, b, c, i: Integer;
Begin
Write('Введите номер билета: №');
ReadLn(n);
b := n;
While b <> 0 Do
Begin
b := b Div 10;
c := c + 1;
End;
If (c < 1) Or (c > 6) Then
WriteLn('Неверный номер билета. Завершение программы.')
Else
Begin
SetLength(a, c);
b := n;
For i := c - 1 DownTo 0 Do
Begin
a[i] := b Mod 10;
b := b Div 10;
End;
If (a[0] + a[1] + a[2]) = (a[3] + a[4] + a[5]) Then
WriteLn('Билет "счастливый"!')
Else
WriteLn('Не повезло');
End;
ReadLn;
<span>End.</span>