Дано двузначное число. найти сумму и произведение его цифр

  program kugjmgv;

uses crt; var a,a1,a2: integer; begin

clrscr; write('введите двузначное число: '); readln(a); a1: =a div 10; a2: =a mod 10; writeln('сумма цифр числа ',a,' равна ',a1+a2,' ,произведение равно ',a1*a2); end.

uses crt; var a,a1,a2: integer; beginwrite('введите двузначное число: '); readln(a); a1: =a div 10; a2: =a mod 10; writeln('сумма цифр числа ',a,' равна ',a1+a2,' ,произведение равно ',a1*a2); end.

если миша запретил маше закрашивать клеточку, двумя или более сторонами примыкающую к уже закрашенным клеточкам, значит маша может закрашивать клеточки в ряд. прямоугольник 4*100 можно представить как 4 ряда по сто клеточек, 2 ряда закрашены - ответ 200

2 способ

маша может закрасит клеточки в шахматном порядке

400 : 2 = 200

var

i,j,s: integer;

x: array[1..8,1..8] of integer;

y: array[1..10,1..10] of integer;

begin

s: =0;

for i: =1 to 8 do

for j: =1 to 8 do

begin

readln(x[i,j]);

if i< =j then s: =s+x[i,j];

end;

writeln("сумма для x=", s);

s: =0;

for i: =1 to 10 do

for j: =1 to 10 do

begin

readln(y[i,j]);

if i< =j then s: =s+y[i,j];

end;

writeln("сумма для y=", s);

end.