Var a,b,c,s,x: integer;
begin
write('x = '); readln(x);
<span> а:=х div 100;
</span><span> b:=x mod 100 div 10;
</span><span> c:=x mod 10;
</span><span> s:=a+b+c;
</span> writeln(s);
end.
При вводе x = 248 будет напечатано 14, при вводе x = 789 будет напечатано 24
Существуют специальные таблицы кодировки символов, в которых каждому символу соответствует свой уникальный номер.
На фото часть одной из таких таблиц.
А ниже программка на паскале, иллюстрирующая работу этих функций:
program aaa;
//Chr (x), Ord (x), Pred (x), Succ (x),
var x: integer; y,z: string;
begin
//присвоим переменной у значение символа под номером 102:
y:=chr(102);
writeln('chr(102)= ',y);
//присвоим переменной x номер позиции символа а в таблице кодировки Windows ASCII:
x:=ord('f');
writeln('ord(''f'')= ',x);
//а теперь возьмем символ русского алфавита "Ф":
x:=ord('Ф');//
writeln('ord(''Ф'')= ',x);
//Теперь нам нужен символ, следующий, например, за символом Ю:
y:=succ('Ю');
writeln('succ(''Ю'')= ',y);
//Или символ, предществующий символу Я:
y:=pred('Я');
writeln('pred(''Я'')= ',y);
end.
Результат работы программы:
chr(102)= f
ord('f')= 102
ord('Ф')= 212
succ('Ю')= Я
pred('Я')= Ю
Ответ:
Коротко :хз, хз, хз, хз, хз, хз, хз
Сорян знал бы помог
Около 15 дней.
Если посчитать сколько каждый вирус в день повреждает, можно высчитать сумму сколько места съедают все вирусы в день.
А=34мб
Б=17мб
С=11мб
Д=5,6мб
Все они в сумме съедают в день 68мб в день. Делим 1гб (1024 мб) на 68 мб.
1024:68=15
N = InputBox("Введите название города")
x = InputBox("Введите количество лет")
<span>MsgBox "Поздравляем жителей города "+n+" с "+x+"-летием!"</span>