Дано двухзначное и трехзначное число. найти квадрат суммы десятков этих чисел. помгите , не поняла тему

Паскаль(в переменную а записоваем трехзначное число) program _1; var a,b: integer; s,s1: integer; begin readln(a,b); s: =a mod 100; s1: =sqr(s+b); writeln(s1); end.на сишке(в переменную а трехзначное)#include < iostream> using namespace std; int main(){ int a,b,c; cin> > a> > b; a=a%100; c=(a+b)*(a+b); cout< < c< < endl; system("pause"); }если коротко обьяснить тему, то так: суть в том, чтоб откинуть лишнее, тоесть оставить только десятки. функция mod(паскаль) возвращает нам остаток от деления на какое нибудь число. тоесть если мы например поделим 112 mod 100, то остаток будет 12, его мы и получим. он же и является десятком. тоже делает и знак % в cишке. если же нам надо получить целую часть от деления, то используем функцию div. пример: 112 div 10 =11. аналог в сишке-знак "/"буду за "лучший ответ"

Не знаю на каком языке нужно написать, поэтому напишу словами. берешь крч длину массива. создаешь цикл for от 1-го элемента до длины массива (< =) . потом ( пусть индекс элемаета массива это i ) ставишь два условия: 1) если i-й элемент массива четный ( на c# это как-то так записывается - if arr[i] %2 = 0)то этот элемент массива увеличиваешь на 7 (arr[i] = arr[i] + 7). 2) условие 2 : если число нечетное ( if arr[i] %2 ! = 0) , то arr[i] = arr[i] / 4.и потом выводишь на экран если надо. ps соррян за грамматику: )

program zav3;

var a,b,c,x: real;

begin

          writeln('vvedit a=');

          readln(a);

          writeln('vvedit b=');

          readln(b);

          writeln('vvedit c=');

          readln(c);

          x: =a+b+c;

          writeln('x=',s);

        readln

end.