Решение алгоритмов, можешь сам проверить, я часто ошибаюсь :c
1). При равном x=125, делим его на 100, (div), с присваиванием (:=) переменной a значения 1;
Присваиваем переменной b значение: b:= x mod(делить и вывести только остаток) 100 div(получим 25, делим выводим целое) 10 = 2;
Присваиваем переменной c значение: c:=x mod 10 = 5;
Слаживаем и записываем в переменную s значение: s:= a+b+c = 8;
Ответ: s=8;
Дальше напишу только ответы, иначе много писать, смекаешь?
2). x=42; y=2;
3). y=14; а вот это: восстановите формулу вычисления y для произвольного значения x ты должен сам, т.к. произвольное значения тебе не вычислю, т.к. их бесконечность! :)
Просто напиши алгоритм к примеру на Pascal. Может помочь, если чего то не знаешь в нём, я вот написал сложнейший код, даже учительница молча стояла..! :) Могу и тебе скинуть, правда его ещё доработать надо, в смысле программу саму, не полная ещё! Но будет! УХ! А сейчас графику изучаю на нём.
PASCAL
program aa;
var a : integer;
begin
writeln('Введите день недели');
Read(a);
If (a < 1) or (a>7) then writeln('Такого дня не существует');
If (a > 0) and (a<6) then writeln('Рабочий день');
If a=4 then writeln(четверг');
end
Самое простое решение program znanijatop;
const n = 100;
var
k,i,j:byte;
s1,s2:real;
a:array[1..n,1..n] of real;
begin
writeln('vvedite poryadok matrice');
readln(k);
s1:=0;s2:=0;for i:=1 to k do begin
for j:=1 to k do begin
writeln('vvedite a[',i,',',j,']');
readln(a[i,j]);
end;
end;
for i:=1 to k do begin
for j:=1 to k do begin
if i<j then s1:=s1+a[i,j];
if i>j then s2:=s2+a[i,j];
end;
end;
if s1 > s2 then writeln('nad glavnoy diagonali summa bolshe');
if s1 < s2 then writeln('pod glavnoy diagonali summa bolshe');
if s1 = s2 then writeln('ravni');
end.
<em>// PascalABC.NET 3.2, сборка 1483 от 14.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Вводите:');
Delete(s,4,1); Delete(s,2,1);
Writeln(s)
end.
<u>Пример</u>
Вводите: Удаление пары символов
Уаение пары символов