Название этой компьютерной компании составлено из фамилий её основателей.
Оба - выпускники Стэндфордского Университета, получившие дипломы инженеров-электронщиков. Для того, чтобы решить, чья фамилия будет идти первой, они просто подбрасывали монетку.
Uses crt; var a,b: Integer; Begin Write('Введите целое число: '); Read a; While a>0 do Begin b:=b+a mod 10; a:=a div 10; End; Writeln('Сумма цифр введённого числа равна ', b); End.