Решите понять не могу как решать а) 2*21+123*=*203 б) 5*55+*327=*16*4 в)21*02+*1212=*2*021 г) 4*5-136=*56 д)1536-*42=674

Это что за звездочка?

// pascalabc.net 3.2, сборка 1362 от 14.12.2016 // внимание! если программа не работает, обновите версию! procedure love(n: integer); begin   writeln(n*('я люблю паскаль'+newline)) end; begin   love(readinteger('n=')) end. пример n= 5 я люблю паскаль я люблю паскаль я люблю паскаль я люблю паскаль я люблю паскаль // pascalabc.net 3.2, сборка 1362 от 14.12.2016 // внимание! если программа не работает, обновите версию! procedure linequ(a,b: real); begin   if a=0 then       if b=0 then writeln('решений бесконечно много')       else writeln('решений нет')   else writeln('x=',-b/a) end; begin   var a,b: real;   write('введите а и b: '); read(a,b);   linequ(a,b) end. пример введите а и b: 18.45 -12 x=0.650406504065041

Var a,b,j,v,c: string; q: integer; begin writeln('напишите своё имя'); readln(a); writeln('напишите дату рождения, год целиком'); readln(q); q: =2016-q; write(' - ,',a,'. '); if q< 7 then begin writeln('ты уже пошел в детский сад? '); readln (' - ',b); if (b='да') or (b='да') then writeln ('удачи! ') else writeln (' - пойди в детский сад, там тебя обучат азам жизни. удачи')   end; else if (7< q) and (q< 17) then begin writln (' - ты пошёл в школу? '); readln (' - ',c); if (c='да') or (c='да') then begin writeln (' - в какую школу ты пошёл? '); readln (' - ',v); writeln (' - в каком ты классе? '); readln (' - ',j); end; end. так можно продолжать бесконечно