Жасулан создал проект таблицу умножения. Укажите соответствует ли скрипты указанным спрайтом. поставь отметки для каждого Спрайт использую да или нет:: вот что там написано ​

program pr; vars,n: string; c: char; i: integer; beginwriteln('введите имя и фамилию в одной строке'); readln (s); i: =1; while s[i]< > ' ' do i: =i+1; n: =copy(s,1,i-1); writeln(n); readln; end.

мы заметили закономерность- с каждым днем кол-во ряски увеличивается в 2 раза.30 июня ряска покрыла всю поверхность озера ===> половина озера была покрыта ряской 29 июня.

1)

var

x,y,s: real;

begin

readln(x,y);

s: =abs(x*y);

writeln(s: 8: 2);

end.

2)

var

a: integer;

begin

readln(a);

if a mod 2=0 then writeln("четное число")

else  writeln("нечетное число")ж

end.

(1+1)*2+1=5((1+1)*2+1)*(2*2*2+1+1)=50(1+2*2*2)*(2*2*2+1+1)+(2*2*2+1)=99