//PascalABC.Net 3.2
begin
var x:=readinteger ('Введите x: ');
var sum:=0;
repeat
sum+=x mod 10;
x:=x div 10;
until x=0;
writeln ('Сумма цифр: ', sum);
writeln ('Сумма заканчивается на 3: ', (sum mod 10)=3);
writeln ('Сумма четная - ', sum.Iseven);
end.
1 килобайт = 1024 байт
<span>3,5 кб = 3584 б = 3584
</span>
3584 Кб * 1024 = 3 670 016 байт
Ответ: Количество символов в тексте 3 670 016.
Основное назначение этой папки заключается в быстром обмене файлами и папками между учетными записями пользователей на одном компьютере или с другими компьютерами и устройствами в сети.Использовать эту папку или нет – личный выбор каждого. Мне она не нужна, но это не означает, что она не пригодиться и вам. Например, если ваш компьютер используют другие члены семьи, и у каждого из них есть своя учетная запись, вы можете использовать папку «Общие» для обмена файлами между всеми этими пользовательскими учетными записями. Все, что вы поместите в эту папку, станет доступно из-под других учетных записей. Каждый может внести изменения в любой файл, и как только изменения будут сохранены, они станут доступны остальным пользователям.<span>Папку «Общие» можно использовать для обмена файлами с другими компьютерами в вашей сети. Это может быть особенно полезно при совместном использовании файлов с пользователями, на компьютерах которых установлена операционная </span>
// PascalABC.NET
begin
var L1 := ReadlnReal('введите расстояние в км: ');
var L2 := ReadlnReal('введите расстояние в футах: ');
L2 := L2 * 0.305E-3; // перевод футов в километры
if L1 < L2 then
Println('L1 меньше')
else if L2 < L1 then
Println('L2 меньше')
else
Println('L1 = L2')
end.